VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Schriftfarbe rot, wenn Datum > Heute

Gruppe

Feature

Bereich

Bedingt

Thema

Schriftfarbe rot, wenn Datum > Heute

Problem

Wie kann ich die Schriftfarbe einer Zelle automatisch auf rot setzen lassen, wenn das darin enthaltene Datum größer als das aktuelle Datum ist?

Lösung

Formel für die bedingte Formatierung: =UND(A1>HEUTE();ISTZAHL(A1))




StandardModule: basMain

Sub KommentarSchrift()
   Dim cmt As Comment
   Set cmt = ActiveCell.AddComment("Mein Kommentar")
   With cmt.Shape.TextFrame.Characters.Font
       .Name = "Courier"
       .Size = 12
       .Bold = False
    End With
End Sub

    


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