aktuelle Datum soll farblich markiert werden.
31.01.2004 00:05:33
Jens
Die Datumsangaben stehe immer in Spalte "D". Es wird beim öffnen des Kalender immer schon das akt. Datum aktiviert über folgenden Code:
Dim Suchbegriff As Range
Set Suchbegriff = Range("D:D").Find(What:=Date, LookAt:=xlWhole)
If Suchbegriff Is Nothing = False Then _
Range(Suchbegriff.Address).Activate
Jetzt brauch ich nur noch etwas Farbe entweder für die Schrift oder die Zelle.
Gruß Jens