VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Spalte mit aktuellem Datum markieren

Gruppe

Feature

Bereich

Bedingt

Thema

Spalte mit aktuellem Datum markieren

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