Stellen zählen bei Eingabe!
12.02.2013 13:07:31
Lisa
Ich möchte, wenn ich in der Zelle C42 einen Text eingebe, dass im Label1 im Sheets(1) die bereits eigebenen Stellen mitgezählt werden!
Die Eingabe der Zelle C42 soll auf 40 Stellen begrenzt werden!
Meine Idee war es wie in einer Userform zu tun, klappt aber nicht!
Kann mir hierbei jemand mit einer Idee weiterhelfen?
Hier mein Ansatz!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C42")) Is Nothing And Range("C42") = "" Then
With Sheets(1)
.Unprotect
.Sheets(1).Label1.Caption = Sheets(1).Range("C42").Text
.Sheets(1).Label1.Caption = 40 - Len(Sheets(1).Range("C42").Text)
.Protect
If Len(Sheets(1).Range("C42").Text) > 40 Then
MsgBox "Die Zeichenfolge ist auf 40 begrenzt!", 1 + vbOKOnly, ""
Sheets(1).Range("C42").Text = Left(Sheets(1).Range("C42").Text, 40)
End If
End With
End If
End Sub
Vielen Dank für eure Hilfe!
LG Lisa