Tutorials

Excel-Tutorial: Automatisch zum heutigen Datum springen

Melden

In großen Excel-Listen mit vielen Datumsangaben (z. B. Projektpläne, Zeiterfassungen oder Tagebücher) kann das manuelle Scrollen zum aktuellen Tag mühsam sein.

Hier ist ein umfassendes Tutorial, wie du mit einer Formel oder einem VBA-Makro automatisch zum heutigen Datum springst.

In diesem Tutorial lernst du zwei Wege kennen:

  1. Die Hyperlink-Methode: Ohne Programmierung, ideal für normale Tabellen.
  2. Die VBA-Methode: Ein Klick auf einen Button oder automatisches Springen beim Öffnen der Datei.

Methode 1: Die Hyperlink-Formel (Ohne VBA)

Diese Methode erstellt einen klickbaren Link in einer Zelle, der dich sofort zur Zelle mit dem heutigen Datum führt.

Die Formel

Kopiere diese Formel in eine Zelle deiner Wahl (z. B. ganz oben in fixierte Zeilen):

=HYPERLINK("#" & ZELLE("adresse"; INDEX(A:A; VERGLEICH(HEUTE(); A:A; 0))); "👉 Zum heutigen Datum springen")

So funktioniert die Formel:

  • HEUTE(): Ermittelt das aktuelle Datum.
  • VERGLEICH(...): Sucht die Zeilennummer, in der das heutige Datum in Spalte A steht.
  • INDEX(A:A; ...): Greift auf die entsprechende Zelle in Spalte A zu.
  • ZELLE("adresse"; ...): Wandelt diesen Bezug in eine Text-Adresse um (z.B. "$A$150").
  • HYPERLINK("#" & ...): Das Raute-Zeichen # sagt Excel, dass das Ziel innerhalb der aktuellen Datei liegt.

Hinweis: Ersetze A:A durch die Spalte, in der sich deine Daten befinden.

Methode 2: Das VBA-Makro (Per Knopfdruck)

Wenn du lieber einen Button hättest, der dich zum Datum bringt, ist VBA die beste Wahl.

Schritt 1: Den VBA-Editor öffnen

  1. Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Gehe auf Einfügen > Modul.

Schritt 2: Den Code einfügen

Kopiere den folgenden Code in das neue Modul:

Sub SpringeZuHeute()
    Dim heute As Date
    Dim zelle As Range
    Dim suchBereich As Range

    heute = Date ' Das heutige Datum
    ' Bereich anpassen: Hier wird in Spalte A gesucht
    Set suchBereich = ActiveSheet.Range("A:A")

    ' Suche nach dem Datum
    Set zelle = suchBereich.Find(What:=heute, LookIn:=xlValues, LookAt:=xlWhole)

    If Not zelle Is Nothing Then
        zelle.Select
        ' Optional: Die Ansicht so scrollen, dass das Datum oben erscheint
        ActiveWindow.ScrollRow = zelle.Row
    Else
        MsgBox "Das heutige Datum wurde in Spalte A nicht gefunden!", vbExclamation
    End If
End Sub

Schritt 3: Einen Button erstellen

  1. Gehe zurück zu Excel.
  2. Gehe auf den Reiter Einfügen > Illustrationen > Formen und zeichne ein Rechteck.
  3. Rechtsklick auf das Rechteck > Makro zuweisen.
  4. Wähle SpringeZuHeute aus und klicke auf OK.

Methode 3: Automatisch beim Öffnen der Datei

Möchtest du, dass Excel beim Öffnen der Arbeitsmappe direkt zum heutigen Datum springt?

  1. Drücke ALT + F11.
  2. Doppelklicke im Projekt-Explorer links auf DieseArbeitsmappe.
  3. Füge diesen Code ein:
Private Sub Workbook_Open()
    Dim zelle As Range
    Set zelle = Sheet1.Range("A:A").Find(What:=Date, LookIn:=xlValues)

    If Not zelle Is Nothing Then
        Application.Goto zelle, Scroll:=True
    End If
End Sub

(Hinweis: Ersetze Sheet1 durch den Namen deines Tabellenblatts im VBA-Editor, z. B. Tabelle1).

Wichtige Tipps für den Erfolg

  1. Datumsformat: Damit die Suche (VBA oder Formel) funktioniert, muss das Datum in der Liste als echtes Excel-Datum formatiert sein, nicht als Text.
  2. Datei speichern: Wenn du VBA nutzt, musst du die Datei als Excel-Arbeitsmappe mit Makros (.xlsm) speichern, sonst geht der Code verloren.
  3. Suchbereich: Achte darauf, dass die Spaltenangabe (A:A) in den Formeln oder im Code genau dort liegt, wo deine Daten stehen.

Bonus: Heute-Zelle hervorheben

Zusätzlich zum Springen kannst du das heutige Datum farblich markieren:

  1. Markiere deine Datumsspalte.
  2. Gehe zu Bedingte Formatierung > Regeln zum Hervorheben von Zellen > Datum.
  3. Wähle Heute und eine Farbe aus. So findest du die Zelle nach dem Sprung sofort mit dem Auge.
0