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
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 ►
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.
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
