Note: The other languages of the website are Google-translated. Back to English

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 Weiter 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 erledigen. Es ist volle Funktion ohne Einschränkung in 30 Tage, Bitte laden Sie es herunter und testen Sie es jetzt kostenlos.
doc zum aktuellen Datum springen 6


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
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!
officetab unten
Kommentare (4)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dies funktioniert nicht mit dem VBA-Code, es öffnet sich nur ein Fenster namens "Gehe zu". Wollten wir den VBA-Code irgendwie bearbeiten?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gleiche Ergebnisse wie Peter ... F5 ruft GoTo auf. Wir haben auch Strg-F5 und Alt-F5 ausprobiert. Gibt es eine andere Tastenfolge oder einen Zusatz zum Code? Vielen Dank.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich bin ein Anfänger mit Microsoft Office und Excel, aber ich bin von Natur aus ein Programmierer. Wenn das Ziel darin besteht, eine Zelle mit dem heutigen Datum zu finden und den Cursor darauf zu positionieren, sehe ich keine Notwendigkeit für all diesen Code. Ein einfacher Code (unten aufgeführt) wird in einem Makro erstellt und das Makro einem Buchstaben zugewiesen Sagen Sie "T", und als Option können Sie sogar eine Schaltfläche erstellen und ihr das Makro zuweisen. Wenn Sie also auf die Schaltfläche klicken, gelangen Sie direkt zu dieser Zelle. Die Kommentarzeilen (die mit ' beginnen) sind optional. Sie können sich dafür entscheiden, sie nicht einzugeben. Ich habe sie zur Fehlerbehebung des Codes verwendet. "Msgbox" ist ein nettes Werkzeug, um mit Ihnen zu kommunizieren. Hier ist mein Code: -------------------------------- Unter GoToToday()
'
' GoToToday-Makro
'
' Tastaturkürzel: Strg+t
'
Dim DateRange, DateCell As Range
Dim i als Byte
Dim x als Zeichenfolge
On Error Resume Next

MySheet = ActiveSheet.Name

' MsgBox (Datum)
Für i = 12 Um 130
x = "A" & ich
' 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" & ich
Bereich(x).Auswählen
Exit Sub
End If
Nächster:
End Sub

Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dieses Beispiel ist schrecklich langsam. Sie könnten wahrscheinlich einige der Find-Parameter kürzen, also testen Sie, wenn Sie wollen.
Code:

'Finde das heutige Datum im Blatt und aktiviere die Zelle
Cells.Find(What:=Datum, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Aktivieren
'-----

ActiveWindow.ScrollRow = ActiveCell.Row 'Bildlaufansicht zur ausgewählten Zelle
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL