Schleife für mehrere Textboxes
17.02.2005 21:56:09
Franz
hat mal wieder eine Frage, bei der ich nicht weiß, ob's überhaupt geht:
Habe z.B. dieselben Exit-Ereignisse zu mehreren Textboxen in einer UF:
Private Sub TextBox21_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox21.BackColor = &HE0E0E0
End Sub
Private Sub TextBox22_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox22.BackColor = &HE0E0E0
End Sub
Private Sub TextBox23_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox23.BackColor = &HE0E0E0
End Sub
Meine Idee nun, ob das in einer einzigen Anweisung geschrieben werden kann, so ähnlich wie:
Private Sub TextBox?Anzahl?_Exit(ByVal Cancel As MSForms.ReturnBoolean)
For Anzahl = 21 To 23
Me.Controls("TextBox" & Anzahl).BackColor = &HE0E0E0
Next
End Sub
Ist das machbar? Kann das irgendwie geschrieben werden?
Vielen Dank schon mal für Eure Hilfe und Grüße
Franz
Anzeige