UF Textbox Anzahl zählen ohne Leerzeichen
03.12.2016 06:02:59
Sigi
ich möchte gerne die Anzahl der Zeichen, Text oder Zahl in einer Userform.Textbox
zählen. Leerzeichen sollen nicht berücksichtigt werden.
Danke!
Gruß
Sigi
Mein Versuch:
Private Sub TextBox1_Change()
Dim lx As Long, ly As Long, lz As Long
lx = 0
ly = Len(TextBox1)
For lz = 1 To ly
If Len(TextBox1) = " " Then
lx = lx + 1
Else
lz = lz + 1
End If
Label2.Caption = CStr(lz) - lx
Next lz
End Sub
Anzeige