Herbers Excel-Forum - das Archiv

Schleife für mehrere Textboxes

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox
Bild

Betrifft: Schleife für mehrere Textboxes
von: Franz W.

Geschrieben am: 17.02.2005 21:56:09
Hallo Fachleute,
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
Bild

Betrifft: AW: Schleife für mehrere Textboxes
von: Ulf
Geschrieben am: 17.02.2005 22:06:14
Das ginge nur mit einem Klassenmodul, leider gibts in Klassenmodulen kein
Exit- Ereignis.
Ulf
Bild

Betrifft: AW: Schleife für mehrere Textboxes
von: Franz W.
Geschrieben am: 17.02.2005 22:34:18
Hallo Ulf,
vielen Dank! Werd mich mal mit Klassenmodulen beschäftigen, vielleicht kommt mir dann eine andere Idee.
Grüße
Franz
 Bild
Excel-Beispiele zum Thema "Schleife für mehrere Textboxes"
In einer Schleife auf Elemente einer UserForm zugreifen CheckBoxes in UserForms in eine Schleife einbinden
Gruppe von UserForm-ListBoxes über eine Schleife ansprechen UserForm-Optionsfelder über eine Schleife zurücksetzen
Suche über mehrere Tabellen Mehrere Schaltflächen für ein Makro
Suchbegriff über mehrere Tabellenblätter suchen. Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche
Druck aus mehreren Tabellenblättern auf eine Druckseite AutoFilter über mehrere Arbeitsblätter setzen