Schönen guten Abend zusammen,

und zwar habe ich einen Raumreservierungskalender erstellt.
Ich habe zwei Arbeitsblätter. Ich möchte gerne, dass man jeweils beim öffnen des Arbeitsblatts zum aktuellen Datum springt.

Das Datum steht immer in Zeile A

Ich habe folgenden VBA Code:

Private Sub Workbook_Open()
Dim rng As Range
Set rng = Sheets(1).Range("A:A").Find(What:=Date, LookIn:=xlValues, _
LookAt:=xlWhole)
If Not rng Is Nothing Then Application.Goto rng, True
End Sub


Hier klappt es auch für mein erstes Arbeitsblatt.

Nun will ich genau dies auch beim zweiten Arbeitsblatt.

Chat GPT schlägt mir folgendes vor:

Private Sub Workbook_Open()
Dim ws As Worksheet
Dim rng As Range

' Durchlaufe alle Blätter in der Arbeitsmappe
For Each ws In ThisWorkbook.Sheets
' Zeige den Namen des aktuellen Blatts in der Debug-Konsole an
Debug.Print ws.Name

' Suche nach dem Datum in Spalte A des aktuellen Blatts
Set rng = ws.Range("A:A").Find(What:=Date, LookIn:=xlValues, LookAt:=xlWhole)

' Wenn das Datum gefunden wurde, gehe zu der Zelle
If Not rng Is Nothing Then
Application.Goto rng, True
Exit Sub ' Verlasse die Schleife, wenn das Datum auf einem Blatt gefunden wurde
End If
Next ws
End Sub


Wenn ich dies eingebe, führt er es trotzdem nur im ersten Arbeitsblatt aus.


Ich würde mich über Hilfe freuen.

Liebe Grüße
Lou