For i = 1 to 20 geht das??
16.07.2003 10:44:18
Tobi
habe folgendes Problem: Habe diesen Code für 20 Tesxtboxen in einer Userform. Kann ich das irgendwie vereinfachen?? Z.B. mit For i = 1 to 20. Habe es auch schon versucht (siehe unten) nur dann erscheint 20 mal die Msgbox. Was mache ich falsch?
Diesen Code habe ich 20 mal
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox1) = False Then
MsgBox "Format fehlerhaft."
Cancel = True
End If
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox2) = False Then
MsgBox "Format fehlerhaft."
Cancel = True
End If
End Sub
Das habe ich versucht, aber geht nicht:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
For i = 1 to 20
If IsDate(TextBoxi) = False Then
MsgBox "Format fehlerhaft."
Cancel = True
End If
Next i
End Sub
Danke für Eure Hilfe
Tobi