Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Spalte mit aktuellem Datum markieren

Gruppe

Bedingt

Problem

Die Spalte mit dem aktuellen Datum in Zeile 1 soll gelb markiert werden.

Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.

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