Thema: Erzwingung von formatierten Eingaben

• Rahmen um TextBox-Objekt bilden
• Wenn es sich beim TextBox-Inhalt nicht um einen gültigen Datumswert handelt oder er einen Doppelpunkt enthält oder die Textlänge nicht 8 Zeichen beträgt...
• Die TextBox nicht verlassen
• Warnton
• Fokus auf die TextBox setzen
• Startzeichen für die Markierung festlegen (Index beginnt bei 0)
• Markierlänge festlegen

Private Sub txtDate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   With txtDate
      If Not IsDate(.Text) Or _
         InStr(.Text, ":") Or _
         .TextLength <> 8 Then
         Cancel = True
         Beep
         .SetFocus
         .SelStart = 0
         .SelLength = .TextLength
      End If
   End With
End Sub

• Rahmen um TextBox-Objekt bilden
• Wenn es sich beim TextBox-Inhalt nicht um einen gültigen Datumswert handelt oder er keinen Doppelpunkt enthält oder einen Punkt enthält oder die Textlänge nicht 5 Zeichen beträgt...
• Die TextBox nicht verlassen
• Warnton
• Fokus auf die TextBox setzen
• Startzeichen für die Markierung festlegen (Index beginnt bei 0)
• Markierlänge festlegen

Private Sub txtTime_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   With txtTime
      If Not IsDate(.Text) Or _
         InStr(.Text, ":") = False Or _
         InStr(.Text, ".") Or _
         .TextLength <> 5 Then
         Cancel = True
         Beep
         .SetFocus
         .SelStart = 0
         .SelLength = .TextLength
      End If
   End With
End Sub