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
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