Hyperlink zu anderen Tabellenblatt (Zelle Datum Heute)

[karl1965]

Hey Leute,

wer kann mir den VBA Code schreiben für einen Hyperlink zu einen anderen Tabellenblatt das mir darin in meiner Datumsspalte das heute Datum Markiert bzw. zu dieser Zelle springt

falls möglich auch noch heutiges Datum + 10 Tage

Im Attachment eine Beispieldatei

[neopa]

Hallo Karl,

... für so einen Link bedarf es kein VBA, das kann man auch mit folgender Zellformel realisieren:

PHP-Code:

=HYPERLINK("#"&"Kalender!B"&VERGLEICH(HEUTE();Kalender!B:B;0)&":B"&VERGLEICH(HEUTE()+10;Kalender!B:B;0);"►") 


Wenn Du danach den ► in der Zelle aktivierst, springst Du in den Datenbereich Deines Kalenders zum jeweils heutigen Datum und gleichzeitig sind die 10 Folgetage dort mit markiert.

[Edit: Nachtrag]:
anstelle in der Formel nur das "►" stehen zu haben könnte natürlich auch da z.B. auch: TEXT(HEUTE(); "TTT. TT.MM.J")&" ►" stehen oder diese auch ohne ►

[karl1965]

SUPER VIELEN DANK KLAPPT BESTENS

[karl1965]

Gibt es auch eine Möglichkeit diesen Hyperlink von einer Schaltfläche aus aufzurufen

Oder noch besser als VBA Code und dann als Link auf die Schaltfläche.

[schauan]

Hallöchen,

in VBA brauchst Du keinen Hyperlink, wenn Du in der Datei bleibst.
Im Prinzip kannst Du in den Click-Code eines Buttons was in der Art einfügen:

Sheets("Kalender").Activate
Cells(berechnetezeile, 2).Activate

Statt berechnetezeile musst Du natürlich die Berechnung vornehmen, z.B. etwas wie Date - Range("B1").Value wenn in B1 der 1.1. vom Jahr steht - natürlich als Datum.

Sheets("Kalender").Activate
Cells(Date - Range("B1").Value, 2).Activate

Solltest Du damit knapp daneben liegen, musst Du auch noch "knapp" verrechnen

Sheets("Kalender").Activate
Cells(Date - Range("B1").Value + 1, 2).Activate