VBA Excel Kalendar heute funktion

Gast #5454138
Lesenswert?

Hallo,

ich habe in excel ein jahreskalendar erstellt. Der Tag heute wird rot 
schraffiert (Bedingte Formatierung, siehe Bild). ich würde gerne in VBA 
eine Funktion schreiben die die rot schraffierte Zelle also die Zelle 
von heute selektiert.

z.B. sowas ähnliches wie das hier:

if sheets("Plan").Range("BX15") = heute??? then

end if
Angehängte Dateien:
Gast #5454280
Lesenswert?

irgendwie so:


Dim aktDatum As Date
aktDatum = Date

Dim Zelle As Excel.Range
For Each Zelle In Range("DatumKalender")
    If Zelle.Value = aktDatum Then
        ActiveSheet.Cells(Zelle.Row, Zelle.Column).Select
    End If
Next

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren