VBA Excel Kalendar heute funktion

[flo (Gast)]

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

[Mike B. (mike_b97)]

=heute()
Dafür musst du die Zellen mit "24." und "Juni 2018" miteinander 
verketten.
Am besten von beiden Ergebnissen den wert(...) bilden und diese 
vergleichen.
Formatierung musst du noch anpassen

[ge-nka (Gast)]

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