Makro: Springe zu Zelle mit zusammengesetztem Wert

Hallo Claus,
<br />erst einmal danke für den Hinweis mit der Umformatierung. Ich habe es so umgesetzt.
<br />Durch die Formel springt er jetzt immer zum ersten Treffer, d.h. immer im Januar nur der Tag passt. Wie gebe ich an, dass auch der Monat passen muss?
<br />Lieben Dank.
<br />

Hallo Ramona,
<br />schreibe in K3:
<br />=DATUM(JAHR(A1);1;1)
<br />und in L3:
<br />=K3+1
<br />und formatiere die Zellen K3:NK3 mit "T"
<br />Damit hast du ein korrektes Datum in den Zellen und es kann einfach danach gesucht werden:
<br />

Sub Datum()

Dim c As Range

Dim Datum As Double

Datum = Format(Date, "D")

Set c = Range("3:3").Find(what:=Datum)

ActiveWindow.ScrollColumn = c.Column

End Sub

Claus
<br />

Ah super, das hat funktioniert!
<br />Würde es auch ohne Makro funktionieren? Habe die HYPERLINK Funktion getestet, allerdings bekomme ich eine MsgBox "Der Bezug ist ungültig!":
<br />=HYPERLINK("#"&VERGLEICH(HEUTE();K3:NK3);"Springe zu Heute")
<br />

Hallo Ramona,
<br />lade dir mal hier die Mappe herunter (in OneDrive sind Makros deaktiviert):
<br />https://1drv.ms/x/s!AqMiGBK2qniTgfMd4M9dPPXYNiN2Pw?e=fJQlKG
<br />Claus
<br />

Hallo Ramona,
<br />wenn du die Tabelle nicht verändern möchtest, kannst du auch errechnen, der wievielte Tag des Jahre heute ist und dementsprechend die Spalte anwählen:
<br />

Sub Test()

Dim intTag As Integer

intTag = Date - DateSerial(Year(Range("A1")) - 1, 12, 31)

ActiveWindow.ScrollColumn = intTag + 10

End Sub

Claus
<br />