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

Beiträge aus den Excel-Beispielen zum Thema "Schleife für mehrere Textboxes"