ich möchte ein Stundenbuch anfertigen. Für jede Kalenderwoche ein eigenes Blatt zb. Kw12, Kw13 usw.
Um beim öffnen immer das aktuelle Datum anzuspringen, hab ich volgendes Makro verwendet:
Sub auto_open()
spalte = "A"
datum = Date
On Error Resume Next
zeile = Columns(spalte & ":" & spalte).Find(datum, LookIn:=xlValues).Row
If zeile = "" Then
MsgBox ("Das aktuelle Datum wurde nicht gefunden.")
Else
Application.Goto ActiveSheet.Cells(zeile, spalte), True
End If
End Sub
Dabei funktioniert es aber nur im ersten Blatt.
Kann mir jemand sagen, wie ich es hinbekomme, dass es auch bei mehreren Blättern funktioniert?
Vielen Dank schonmal!