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