Bei Klick auf Zelle, Info, dass Zeichenanzahl begrenzt ist

24/06/2009 - 14:07 von Martina Möhrke | Report spam
Hallo NG,

ich bitte noch einmal um Eure Hilfe (Vs:Excel 2003). Ich möchte bei
einfachem Klick in eine Zelle aus dem Bereich B3 bis H 13 eine MsgBox
erscheinen lassen, die den User darauf hinweist, dass die Anzahl der
Zeichen auf XX-Zeichen begrenzt ist. Die Limitierung der Zeichen
sollte natürlich auch vorgenommen werden.

Bislang habe ich folgenden Code schon mit Hilfe der NG gefunden:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox "ATTENTION:" & vbCrLf & vbCrLf & "The number of signs is
limited to 20!", vbExclamation _
, "number of signs"
If Not Intersect(Range("B3:H13"), Target) Is Nothing Then
Const L = 10
Target.Value = Left(Target.Value, L)
End If
End Sub

So erscheint die Info aber nicht bei Anklicken der Zelle. Was muss ich
àndern?

Vielen Dank für Eure Tipps!

Gruß
Martina
 

Lesen sie die antworten

#1 Matthias Hübner
24/06/2009 - 15:07 | Warnen spam
Martina Möhrke wrote:

Hallo NG,

ich bitte noch einmal um Eure Hilfe (Vs:Excel 2003). Ich möchte bei
einfachem Klick in eine Zelle aus dem Bereich B3 bis H 13 eine MsgBox
erscheinen lassen, die den User darauf hinweist, dass die Anzahl der
Zeichen auf XX-Zeichen begrenzt ist. Die Limitierung der Zeichen
sollte natürlich auch vorgenommen werden.

Bislang habe ich folgenden Code schon mit Hilfe der NG gefunden:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox "ATTENTION:" & vbCrLf & vbCrLf & "The number of signs is
limited to 20!", vbExclamation _
, "number of signs"
If Not Intersect(Range("B3:H13"), Target) Is Nothing Then
Const L = 10
Target.Value = Left(Target.Value, L)
End If
End Sub

So erscheint die Info aber nicht bei Anklicken der Zelle. Was muss ich
àndern?

Vielen Dank für Eure Tipps!

Gruß
Martina



Schaue mal unter <Daten><Gültigkeit> unter zulassen <Textlànge> auswàhlen
und einen Hinweistext in der <Eingabemeldung> platzieren
Grüße
Matthias

Ähnliche fragen