Office: Anzahl Zeichen in textbox zählen

hallo,

ich möchte die anzahl der zeichen in einer textbox zählen und wenn
das ergebnis nicht genau z.b. 10 ist, soll eine msgbox ausgegeben werden.

geht das mit len(...)

oder was wäre da optimaler?

besten dank im voraus.

grüße
christoph

:)

 

Hallo Christoph,
ich vermute Du möchtest ein Formular ausfüllen und dabei prüfen ob wirklich 10 Zeichne in der Textbox stehen. Vermutlich hast Du einen Button um die Prüfung zu starten. Dann würde folgender Kode laufen:
Option Explicit
Private Sub CommandButton1_Click()
Dim lngLaenge As Long

lngLaenge = Len(Me.TextBox1)
If lngLaenge 10 Then
MsgBox "Es sind " & CStr(lngLaenge) & " Zeichen in der Textbox.", vbOKOnly + vbInformation, "Anzahl Zeichen"
End If
End Sub
Gruss, Wilhelm

 

hallo wilhelm,

genau so was habe ich gesucht. das funktioniert wunderbar.

mich würde noch interessieren, wann und wozu man eigentlich

Option Explicit

benötigt?

grüsse christoph

 

Moin, christoph,

ich würde ein Verlassen des Textfeldes mit dem Erfüllen der Bedingung verwenden, nicht eine gesonderte Prozedur (Exit-Ereignis des Textfeldes).

Option Explicit zwingt zur Angabe aller in diesem Modul vorkommenden Variablen und hilft so, Ablauffehler im Code aufgrund von Rechtschreibfehlern zu verhindern.

 

servus jinx,

ok, verstehe. damit gleich beim verlassen des feldes eine meldung kommt.

ok, habe ich mal gemacht beim exit-ereignis. hat soweit geklappt.
ich habe in der if-bedingung eingebaut, daß wenn weniger als 15 zeichen
sind, daß das textfeld geleert wird (funktioniert) und habe textbox.setfocus eingebaut. aber wenn ich nun in ein bel. anderes textfeld klicke, kommt zwar
die meldung (> 15 zeichen) und die textbox wird geleert, aber der cursor springt nicht in das feld (trotz setfocus). warum dies?

das mit option explicit ist klar, habe das eingebaut, und hatte doch 2-3 fehlerhafte variablen.

besten dank,
gruß christoph

 

habe gerade herausgefunden, warum der focus nicht auf das textfeld gesetzt werden kann. liegt daran, daß das feld nicht immer aktiv ist. werde ich ändern, daß es funzt.