Direkt zum Inhalt

Wie springe ich schnell zur Zelle mit dem aktuellen Datum in Excel?

Hier ist ein Blatt mit einer Liste von Daten. Sie möchten schnell zu der Zelle mit dem aktuellen Datum springen. Wie können Sie dieses Problem lösen?

Mit VBA zum aktuellen Datum springen

Mit Suchen und Ersetzen zum aktuellen Datum springen


Pfeil blau rechte Blase Mit VBA zum aktuellen Datum springen

Hier ist ein VBA-Code, mit dem Sie schnell zur Zelle mit dem aktuellen Datum springen können.

1. Aktivieren Sie die Arbeitsmappe, die Sie verwenden möchten, und drücken Sie Alt + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2 Klicken Insert > ModulFügen Sie den folgenden Code in das ein Modul.

VBA: Zum aktuellen Datum springen

Private Sub Workbook_Open()
'UpdatebyExtendoffice20161221
    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

doc zum aktuellen Datum springen 1

3. Drücken Sie F5 Mit der Taste springt der Cursor zu der Zelle mit dem aktuellen Datum, wo immer Sie sich in der Arbeitsmappe befinden.
doc zum aktuellen Datum springen 2


Pfeil blau rechte Blase Mit Suchen und Ersetzen zum aktuellen Datum springen

Wenn Sie mit VBA-Code nicht vertraut sind, können Sie auch den anwenden Suchen und Ersetzen Dienstprogramm, 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 Schlüssel, jetzt erhalten Sie das heutige Datum.
doc zum aktuellen Datum springen 3

2. Drücken Sie Ctrl + C Um das heutige Datum zu kopieren, wählen Sie die Liste der Daten aus und drücken Sie Strg + F um das zu ermöglichen Suchen und Ersetzen Dialog, in der Finden Sie, was Textfeld, drücken Sie Strg + V zum Einfügen des heutigen Datums in. Siehe Screenshot:
doc zum aktuellen Datum springen 4

3 Klicken Finde alle. Jetzt springt der Cursor zu der Zelle mit Heute in der ausgewählten Liste.
doc zum aktuellen Datum springen 5

TIPP: Wenn Sie Kutools for Excelkönnen Sie seine anwenden Wählen Sie Bestimmte Zellen aus um diese Aufgabe schnell zu bewältigen. Die volle Funktion ohne Einschränkung ist innerhalb von 30 Tagen verfügbar. Bitte laden Sie es herunter und testen Sie es jetzt kostenlos.
doc zum aktuellen Datum springen 6

Beste Office-Produktivitätstools

Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

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, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

kte tab 201905


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This example is horribly slow. You could probably trim some of the find parameters, so test if you want.
Code:

'Find todays date in the sheet and activate cell
Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
'-----

ActiveWindow.ScrollRow = ActiveCell.Row 'scroll view to selected cell
This comment was minimized by the moderator on the site
I am a novice with Microsoft Office, and Excel, but I am a programmer by nature. If the objective is to locate a cell with today's date - and position the cursor to it, I can't see the need for all that code.A simple code (listed below) created in a macro, and assign the macro to a letter say "T", and as an option you may even created a button and assign the macro to it, so when you click the button you will travel directly to that cell.The comments lines (those that start with ') are optional. You may choose not to type them. I used them for troubleshooting the code. "Msgbox" is a nice tool to communicate with you.Here is my code:---------------------------------Sub GoToToday()
'
' GoToToday Macro
'
' Keyboard Shortcut: Ctrl+t
'
Dim DateRange, DateCell As Range
Dim i As Byte
Dim x As String
On Error Resume Next

MySheet = ActiveSheet.Name

' MsgBox (Date)
For i = 12 To 130
x = "A" & i
' MsgBox (x)
' MsgBox (Worksheets(MySheet).Range(x))

If Worksheets(MySheet).Range(x).Value = Date Then
' MsgBox (i)
' MsgBox (x)
' MsgBox (Worksheets(MySheet).Range(x))
x = "D" & i
Range(x).Select
Exit Sub
End If
Next:
End Sub

This comment was minimized by the moderator on the site
Same results as Peter ... F5 brings up GoTo. We also tried Ctrl-F5 and Alt-F5. Is there some other key sequence or addition to the code? Thanks.
This comment was minimized by the moderator on the site
This doesn't work with the VBA code, it just brings up a window called "Go To". Were we meant to edit the VBA code in some way?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations