Wie gelangt man in Excel schnell zur Zelle mit dem aktuellen Datum?
Sie haben ein Arbeitsblatt mit einer Liste von Daten und möchten schnell zur Zelle springen, die das aktuelle Datum enthält – wie gehen Sie dabei vor?
Zum aktuellen Datum mit VBA springen
Zum aktuellen Datum mit Suchen und Ersetzen springen
Zum aktuellen Datum mit VBA springen
Hier ist ein VBA-Code, mit dem Sie blitzschnell zur Zelle mit dem aktuellen Datum springen können.
1. Öffnen Sie die gewünschte Arbeitsmappe und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modul ein.
VBA: Zum aktuellen Datum springen
Private Sub Workbook_Open()
'UpdatebyExtendoffice
Dim daterng As Range
Dim DateCell As Range
Dim WorkSht As Worksheet
Dim dateStr As String
Application.ScreenUpdating = False
For Each WorkSht In Worksheets
WorkSht.Select
'Set daterng = Range("A:A")
Set daterng = WorkSht.UsedRange
'daterng.Select
For Each DateCell In daterng
DateCell.Activate
ActiveCell.Select
On Error Resume Next
dateStr = DateCell.Value
If dateStr = Date Then
DateCell.Select
Exit Sub
End If
Next
Next WorkSht
Application.ScreenUpdating = True
'Worksheets(1).Select
End Sub
3. Drücken Sie die Taste F5, und der Cursor springt sofort zur Zelle mit dem aktuellen Datum – ganz egal, wo Sie sich gerade in der Arbeitsmappe befinden.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Zum aktuellen Datum mit Suchen und Ersetzen springen
Wenn Sie mit VBA-Code nicht vertraut sind, können Sie alternativ das Hilfsprogramm Suchen und Ersetzen verwenden, um direkt zum aktuellen Datum zu springen.
1. Aktivieren Sie das Arbeitsblatt mit der Datumsliste und wählen Sie eine leere Zelle aus. Geben Sie die Formel =HEUTE() ein und drücken Sie die Enter-Taste – so erhalten Sie das heutige Datum.
2. Drücken Sie Strg + C, um das heutige Datum zu kopieren. Wählen Sie anschließend die Datumsliste aus und drücken Sie Strg + F, um das Dialogfeld Suchen und Ersetzen zu öffnen. Fügen Sie im Textfeld Suchen nach durch Drücken von Strg + V das heutige Datum ein. Siehe Screenshot:
3. Klicken Sie auf Alle suchen. Der Cursor springt nun zur Zelle mit dem heutigen Datum innerhalb der ausgewählten Liste.
Tipp: Wenn Sie Kutools für Excel besitzen, können Sie die Funktion Bestimmte Zellen auswählen nutzen, um diese Aufgabe im Handumdrehen zu erledigen. Sie steht Ihnen 30 Tage lang vollständig und uneingeschränkt zur Verfügung. Laden Sie es jetzt herunter und testen Sie es kostenlos!
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins