Gruppe
Feature
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?
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