Thema: TextBoxes in eigener Klasse

• Public-Variablen-Deklaration der TextBox-Gruppe
• Rahmen und das TextBox-Gruppen-Objekt bilden
• Wenn die Textlänge kleiner als 8, Prozedur verlassen
• Wenn es sich bei der TextBox-Eingabe nicht um ein gültiges Datum handelt...
• Wanton
• Warnmeldung
• Startzeichen für die TextBox-Markierung festlegen
• Länge der Markierung festlgen

Public WithEvents TxtGroup As MSForms.TextBox

Private Sub TxtGroup_Change()
   With TxtGroup
      If Len(.Text) < 8 Then Exit Sub
      If Not IsDate(.Text) Then
         Beep
         MsgBox "Bitte gültiges Datum eingeben!"
         .SelStart = 0
         .SelLength = .TextLength
      End If
   End With
End Sub

• Variablendeklaration für die neue Klasse
• Variablendeklaration für die Zählvariable
• Schleife bilden
• Das jeweilige TextBox-Objekt an die TextBox-Gruppe übergeben

Dim txtBoxes(1 To 4) As New Klasse1

Private Sub UserForm_Initialize()
   Dim intCounter As Integer
   For intCounter = 1 To 4
      Set txtBoxes(intCounter).TxtGroup = Controls("TextBox" & intCounter)
   Next intCounter
End Sub