Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

in Zelle mit heutigen Datum springen

Forumthread: in Zelle mit heutigen Datum springen

in Zelle mit heutigen Datum springen
12.01.2004 10:14:26
Silvie
Hallo zusammen!
In einer Datei steht in der 1. Spalte das Datum von 01.01.2004 - 31.12.2004
(A4-A369). Ich suche nach einem Makro mit dem ich immer auf das aktuelle Datum springen kann.
Weiß jemand wie das geht?
Danke schonmal im voraus!
Silvie
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: in Zelle mit heutigen Datum springen: so
12.01.2004 10:22:23
Galenzo
Hallo,
mein Vorschlag:
ActiveWindow.ScrollRow = Application.Match(CDbl(Now()), ActiveSheet.Columns(1), 1)
Viel Erfolg!
AW: in Zelle mit heutigen Datum springen: so
12.01.2004 10:40:59
Silvie
vielen Dank, funktioniert!!!!
AW: in Zelle mit heutigen Datum springen
12.01.2004 10:24:30
Tobi_Fr
hi,

Sub main()
dima a
a = date
for i = 1 to 369
if thisworkbook.application.cells(i,1) = a then
thisworkbook.application.cells(i,1).select
else
endif
next i
End Sub

Anzeige
AW: und noch ein Vorschlag
12.01.2004 10:27:08
Matthias G
nämlich dieser:
Range("A4:A369").Find(what:=date()).Select
Gruß,
Matthias
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

In Zelle mit heutigem Datum springen


Schritt-für-Schritt-Anleitung

Um in einer Excel-Datei mit einem Datum von 01.01.2004 bis 31.12.2004 direkt auf das aktuelle Datum zu springen, kannst Du ein VBA-Makro verwenden. Befolge diese Schritte:

  1. Öffne Excel und lade die Datei, die die Datumswerte enthält.

  2. Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  3. Klicke auf Einfügen in der Menüleiste und wähle Modul, um ein neues Modul zu erstellen.

  4. Kopiere den folgenden Code in das Modul:

    Sub springeZuHeutigemDatum()
       Dim a As Date
       a = Date
       For i = 4 To 369
           If ThisWorkbook.Application.Cells(i, 1) = a Then
               ThisWorkbook.Application.Cells(i, 1).Select
               Exit Sub
           End If
       Next i
    End Sub
  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Drücke ALT + F8, wähle springeZuHeutigemDatum aus und klicke auf Ausführen.

Nun springt Excel automatisch zur Zelle mit dem aktuellen Datum.


Häufige Fehler und Lösungen

  • Fehler: Das Makro funktioniert nicht.

    • Lösung: Stelle sicher, dass Du das Makro korrekt kopiert hast und dass die Daten in der ersten Spalte (A4:A369) stehen.
  • Fehler: Excel springt nicht zur richtigen Zelle.

    • Lösung: Überprüfe, ob das Datum im richtigen Format vorliegt. Es sollte im Datumsformat und nicht als Text gespeichert sein.

Alternative Methoden

Neben dem oben genannten Makro gibt es auch andere Möglichkeiten, um zu dem aktuellen Datum zu springen:

  1. Mit einer Formel: Du kannst die VERGLEICH-Funktion verwenden, um die Zeilennummer des aktuellen Datums zu finden.

    =VERGLEICH(HEUTE(); A4:A369; 0)
  2. Mit dem Find-Befehl: Du kannst den folgenden VBA-Code verwenden, um ebenfalls zu dem aktuellen Datum zu springen:

    Range("A4:A369").Find(what:=Date()).Select

Praktische Beispiele

  • Beispiel 1: Du hast eine Datumsreihe in Spalte A von A4 bis A369. Mit dem oben genannten Makro kannst Du direkt zu dem Datum springen, das mit dem heutigen Datum übereinstimmt.

  • Beispiel 2: Wenn Du mehrere Jahre in einer Datei hast, kannst Du das Makro leicht anpassen, um das aktuelle Jahr zu berücksichtigen.


Tipps für Profis

  • Verwende Application.Match: Ein alternativer Ansatz zur Verwendung des Find-Befehls könnte so aussehen:

    ActiveWindow.ScrollRow = Application.Match(Date, ActiveSheet.Columns(1), 1)
  • Makros in der Schnellzugriffsleiste hinzufügen: Du kannst das Makro zur Schnellzugriffsleiste hinzufügen, um es schneller auszuführen.


FAQ: Häufige Fragen

1. Wie kann ich das Makro speichern, damit ich es in zukünftigen Dateien verwenden kann?
Du kannst das Makro in einer persönlichen Makroarbeitsmappe speichern, die beim Start von Excel geladen wird.

2. Funktioniert das Makro in Excel 2021?
Ja, das Makro funktioniert in Excel 2021 sowie in früheren Versionen, die VBA unterstützen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige