Aktuelles Datum finden
20.11.2020 13:34:19
RobinK
ich bin mit den vielen Beiträgen die ich hier gefunden habe schon soweit gekommen, dass das Makro macht was es soll.
Ich habe in Spalte A vorgegebene Termine (also im Datumformat), allerdings können aufgrund der Uhrzeiten in Spalte B auch Tagesdaten mehrfach untereinander stehen. Spalte A ist chronologisch (Vergangen oben, Neuste unten)
Meine Frage zum i-Tüpfel ist, dass mein Makro zwar den richtigen Tag findet und die Zelle markiert, aber immer das unterste bei gleichen Daten nimmt. Kann man das so umstellen, dass beim Datum nur der oberste Eintrag bei gleichem Datum berücksichtigt wird?
Schonmal danke fürs Grübeln.
Sub DatumSuchen()
Dim Datum As Long
Dim iColumn As Variant
Datum = CDate(Range("H1"))
iColumn = Application.Match(Datum, Range("A1:A1000"), 1)
Range("A" & iColumn).Select
End Sub
Anzeige