Thema: Spalte mit aktuellem Datum markieren

ClassModule: UserForm1

Private Sub CommandButton1_Click()

End Sub

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If TextBox5.TextLength = 0 Then Exit Sub
   If TextBox5.TextLength < 6 Then
      MsgBox "Bitte mindestens eine 6-stellige Zahl angeben!"
      Exit Sub
   End If
   If TextBox5.TextLength > 6 And TextBox5.TextLength < 12 Then
      MsgBox "Bitte eine 6- oder 12-stellige Zahl angeben!"
      Exit Sub
   End If
   If TextBox5.TextLength = 6 Then
      TextBox5.Text = Format(TextBox5.Text, "@@@ @@@")
   Else
      TextBox5.Text = Format(TextBox5.Text, "@@ @@@ @@@ @@@ @")
   End If
End Sub

Private Sub UserForm_Click()

End Sub

Beiträge aus dem Excel-Forum zu den Themen Feature und Bedingt