Wie springt man schnell zur Zelle mit dem aktuellen Datum in Excel?
Hier ist ein Blatt mit einer Liste von Datumsangaben, und Sie möchten schnell zur Zelle springen, die das aktuelle Datum enthält. Wie können Sie dieses Problem lösen?
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, der Ihnen helfen kann, schnell zur Zelle mit dem aktuellen Datum zu springen.
1. Aktivieren Sie die Arbeitsmappe, die Sie verwenden möchten, 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 F5 Taste, dann springt der Cursor zur Zelle mit dem aktuellen Datum, egal wo Sie sich im Arbeitsbuch befinden.
Entfesseln Sie die Magie von Excel mit Kutools AI
- Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
- VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
- Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.
Zum aktuellen Datum mit Suchen und Ersetzen springen
Wenn Sie nicht mit VBA-Code vertraut sind, können Sie auch das Hilfsprogramm „Suchen und Ersetzen“ verwenden, um zum aktuellen Datum zu springen.
1. Aktivieren Sie das Blatt, das die Datumsliste enthält, und wählen Sie eine leere Zelle aus. Geben Sie diese Formel ein =HEUTE(), drücken Sie Enter Taste, jetzt haben Sie das heutige Datum.
2. Drücken Sie Strg + C , um das heutige Datum zu kopieren, und gehen Sie zur Auswahl der Datumsliste, und drücken Sie dann Strg + F , um das Fenster Suchen und Ersetzen zu öffnen. Im Feld Suchen nach drücken Sie Strg + V , um das heutige Datum einzufügen. Siehe Screenshot:
3. Klicken Sie auf Alle suchen. Nun springt der Cursor zur Zelle mit dem heutigen Datum in der ausgewählten Liste.
Tipp: Wenn Sie Kutools für Excelhaben, können Sie seine Funktion Bestimmte Zellen auswählen verwenden, um diese Aufgabe schnell zu erledigen. Es bietet volle Funktionalität ohne Einschränkungen für 30 Tage, laden Sie es herunter und testen Sie es kostenlos. 
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins