Zum heutigen Datum springen per VBA in Excel
Schritt-für-Schritt-Anleitung
Um in Excel beim Öffnen auf das aktuelle Datum zu springen, kannst du ein VBA-Makro verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Füge ein neues Modul hinzu: Klicke auf Einfügen > Modul.
-
Kopiere und füge den folgenden Code ein:
Sub DatumFinden()
Dim rngDatum As Range
Set rngDatum = Range("B5:Z132").Find(Date)
If Not rngDatum Is Nothing Then
rngDatum.Select
Else
MsgBox "Das Datum " & Date & " ist im Bereich B5:Z132 nicht zu finden."
End If
Set rngDatum = Nothing
End Sub
-
Speichere das Modul und schließe den VBA-Editor.
-
Füge das Makro beim Öffnen der Datei hinzu, indem du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.
Das Makro sucht nun im Bereich B5:Z132 nach dem heutigen Datum und selektiert die entsprechende Zelle.
Häufige Fehler und Lösungen
-
Laufzeitfehler 13: Dieser Fehler kann auftreten, wenn du versuchst, einen Wert zu vergleichen, der kein Datum ist. Stelle sicher, dass alle Zellen im Bereich B5:Z132 Datumswerte enthalten.
-
Doppeltes Datum: Wenn es mehrere Zellen mit dem gleichen Datum gibt, springt das Makro immer zur ersten gefundenen Zelle. Um zur letzten Zelle mit dem heutigen Datum zu springen, verwende den folgenden Code:
Sub DatumFormatFinden()
Dim lngDatum As Long, zei As Long, sp As Integer
lngDatum = CLng(Date)
For zei = 132 To 5 Step -1
For sp = 26 To 2 Step -1
If IsDate(Cells(zei, sp)) Then
If CLng(Cells(zei, sp)) = lngDatum Then
Cells(zei, sp).Select
Exit Sub
End If
End If
Next sp
Next zei
End Sub
Alternative Methoden
Eine weitere Möglichkeit, in Excel beim Öffnen zum aktuellen Datum zu springen, besteht darin, die Workbook_Open-Ereignisprozedur zu verwenden. Hier ein Beispiel:
- Öffne den VBA-Editor (
ALT + F11).
- Doppelklicke auf
DieseArbeitsmappe im Projekt-Explorer.
-
Füge den folgenden Code ein:
Private Sub Workbook_Open()
Call DatumFinden
End Sub
Mit dieser Methode wird das Makro automatisch ausgeführt, wenn die Datei geöffnet wird.
Praktische Beispiele
Hier sind einige praktische Beispiele, die dir helfen, das Makro effektiver zu nutzen:
-
Beispiel 1: Wenn du das Makro in einer Datei verwendest, die jeden Tag aktualisiert wird, kannst du den Bereich B5:Z132 anpassen, um nur die relevanten Wochen zu durchsuchen.
-
Beispiel 2: Du kannst das Makro mit einem Button verknüpfen, um das heutige Datum manuell auszuwählen, falls du es nicht beim Öffnen tun möchtest.
Tipps für Profis
-
Verwende Fehlerbehandlung, um sicherzustellen, dass dein Makro auch bei unerwarteten Eingaben funktioniert. Füge On Error Resume Next und On Error GoTo 0 hinzu, um Fehler zu ignorieren und später zurückzusetzen.
-
Du kannst das Makro so anpassen, dass es beim Öffnen der Datei nicht nur zum heutigen Datum springt, sondern auch automatisch die Zelle mit dem heutigen Datum hervorhebt.
FAQ: Häufige Fragen
1. Wie kann ich das Makro anpassen, um bei doppelten Datumswerten immer zur letzten Zelle zu springen?
Du kannst die Schleife umkehren und von unten nach oben durch die Zellen iterieren, wie im Beispiel oben gezeigt.
2. In welcher Excel-Version funktioniert dieses Makro?
Das Makro ist mit Excel-Versionen ab 2003 kompatibel. Achte darauf, dass die Datumsformate korrekt eingestellt sind, um Fehler zu vermeiden.
3. Was kann ich tun, wenn das Datum nicht gefunden wird?
Das Makro gibt eine Nachricht aus, wenn das Datum nicht im angegebenen Bereich gefunden wird. Du kannst den Bereich anpassen oder sicherstellen, dass das Datum korrekt eingetragen ist.