Automatisch in Zelle mit aktuellem Datum springen

Forumthread: Automatisch in Zelle mit aktuellem Datum springen

28.07.2015 07:26:21

Laura

Hallo zusammen,
ich habe ein Tabellenblatt ("Tabelle 1"), in Zeile 4 steht das jeweilige Datum (ohne Samstag/Sonntag).
Ich möchte gerne, dass die Ansicht beim Öffnen der Tabelle automatisch die Ansicht mit dem heutigen Datum zeigt.
Ich kenn mich mit Makros nicht aus - sorry gleich mal. Habe schon diverse Dinge versucht, hat leider alles nicht funktioniert.
Danke!
Sara

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Automatisch in Zelle mit aktuellem Datum springen

28.07.2015 07:42:35

Werner

Hallo Sara,
in der Recherche wärst du fündig geworden.

Private Sub Worksheet_Activate()
Dim rng As Range
Dim lngDatum As Long
lngDatum = CLng(Date)
For Each rng In Range("A4:Z4") 'Bereich anpassen
If IsDate(rng) Then
If CLng(rng) = lngDatum Then
rng.Select
Exit Sub
End If
End If
Next
End Sub

Rechter Mausklick auf den Tabellenblattreiter1, Code anzeigen auswählen und den Code da rein kopieren.
Gruß Werner

AW: Automatisch in Zelle mit aktuellem Datum springen

28.07.2015 10:55:02

Werner

Hallo Sara,
oder so, wenn die entsprechende Zelle dann gleich noch die erste Zelle oben links sein soll.

Private Sub Worksheet_Activate()
Dim rng As Range
Dim lngDatum As Long
lngDatum = CLng(Date)
For Each rng In Range("A6:Z6") 'Bereich anpassen
If IsDate(rng) Then
If CLng(rng) = lngDatum Then
Application.Goto rng, True
Exit Sub
End If
End If
Next
End Sub

Gruß Werner

das geht viel kürzer!

28.07.2015 11:00:08

Rudi

Hallo Werner,
ein Einzeiler reicht.

Sub aaa()
Application.Goto Sheets(1).Rows(4).Find(Date), True
End Sub

Gruß
Rudi

Rudi, bringt Laufzeitfehler 5 oT - Gruß

28.07.2015 12:48:24

robert

Infobox / Tutorial

Automatisch in Zelle mit aktuellem Datum springen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um in Excel beim Öffnen automatisch zu einer Zelle mit dem aktuellen Datum zu springen, kannst du ein einfaches VBA-Makro verwenden. Hier sind die Schritte, um das Makro zu erstellen:

Öffne Deine Excel-Datei und gehe zu dem Tabellenblatt, in dem du das Datum hast.
Klicke mit der rechten Maustaste auf den Reiter des Tabellenblatts und wähle „Code anzeigen“.

Füge den folgenden Code in das VBA-Fenster ein:

Private Sub Worksheet_Activate()
   Dim rng As Range
   Dim lngDatum As Long
   lngDatum = CLng(Date)
   For Each rng In Range("A4:Z4") 'Bereich anpassen
       If IsDate(rng) Then
           If CLng(rng) = lngDatum Then
               rng.Select
               Exit Sub
           End If
       End If
   Next
End Sub

Schließe das VBA-Fenster und speichere die Datei als Makro-fähige Arbeitsmappe (.xlsm).
Schließe und öffne die Arbeitsmappe erneut, um zu testen, ob Excel beim Öffnen auf das aktuelle Datum springt.

Häufige Fehler und Lösungen

Laufzeitfehler 5: Dieser Fehler kann auftreten, wenn das Datum nicht gefunden wird. Stelle sicher, dass das Datum im angegebenen Bereich (z.B. A4:Z4) korrekt formatiert ist.
Makro wird nicht ausgeführt: Vergewissere dich, dass Makros in Deinen Excel-Einstellungen aktiviert sind. Du kannst dies unter „Datei“ > „Optionen“ > „Trust Center“ > „Einstellungen für das Trust Center“ überprüfen.

Alternative Methoden

Wenn du kein Makro verwenden möchtest, gibt es auch andere Möglichkeiten:

Hyperlink: Du kannst einen Hyperlink erstellen, der zu einer Zelle mit dem heutigen Datum führt. Das geht so:
1. Wähle die Zelle, in die du den Hyperlink einfügen möchtest.
2. Klicke auf „Einfügen“ > „Link“ > „Aktuelles Dokument“ und wähle die Zelle mit dem heutigen Datum aus.
Bedingte Formatierung: Du kannst die Zeile mit dem aktuellen Datum hervorheben, um sie schneller zu finden, indem du die bedingte Formatierung verwendest.

Praktische Beispiele

Beispiel 1: Angenommen, du hast in Zeile 4 die Daten von Montag bis Freitag. Mit dem oben genannten Makro springt Excel beim Öffnen automatisch zur Zelle mit dem aktuellen Datum.
Beispiel 2: Wenn du das Makro so anpasst, dass es auf eine bestimmte Zelle springt, kannst du den Code wie folgt ändern:
```
Application.Goto Sheets(1).Rows(4).Find(Date), True
```

Tipps für Profis

Nutze die Funktion „Worksheet_Activate“, um sicherzustellen, dass der Code immer ausgeführt wird, wenn das Arbeitsblatt aktiv wird.
Experimentiere mit verschiedenen Bereichen, um die Zelle mit dem aktuellen Datum zu finden, und passe den Code entsprechend an.
Verwende die Funktion Application.Goto, um direkt zu einer bestimmten Zelle zu springen, ohne eine Schleife zu verwenden. Das kann die Effizienz des Codes erhöhen.

FAQ: Häufige Fragen

1. Wie kann ich das Makro so anpassen, dass es auf ein anderes Datum springt?
Du kannst den Code anpassen, indem du lngDatum auf ein spezifisches Datum setzt, z.B. lngDatum = CLng("2023-10-01").

2. Funktioniert das Makro auch ohne die Verwendung von VBA?
Das direkte Springen zu einer bestimmten Zelle mit dem aktuellen Datum erfordert in der Regel die Verwendung von VBA. Alternativ kannst du manuell zu der Zelle navigieren oder einen Hyperlink verwenden.

3. Kann ich das Makro für andere Tabellenblätter verwenden?
Ja, du kannst den Code in jedem Tabellenblatt verwenden, musst jedoch sicherstellen, dass der Bereich, in dem nach dem Datum gesucht wird, korrekt angegeben ist.

Beliebteste Forumthreads (12 Monate)

Automatisch in Zelle mit aktuellem Datum springen

Forumthread: Automatisch in Zelle mit aktuellem Datum springen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Automatisch in Zelle mit aktuellem Datum springen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Automatisch in Zelle mit aktuellem Datum springen

Forumthread: Automatisch in Zelle mit aktuellem Datum springen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Automatisch in Zelle mit aktuellem Datum springen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread