Sheet mit aktuellem Wochentag öffnen
19.12.2022 08:50:53
Marcel
brauche mal wieder kurze Hilfe bei einem Makro. Das folgende Makro öffnet je nach Wochentag das passende Sheet (benannt mit Montag-Sonntag). Ich möchte nun lediglich, dass der Tag um 5,5 Stunden verschoben ist. (=> bsp: morgens 5 Uhr Dienstags soll immer noch das Sheet von Montag geöffnet werden)
Private Sub Workbook_Open()
Dim Wochentag As Worksheet
For Each Wochentag In ThisWorkbook.Worksheets
If Wochentag.Name = Format$((Date), "DDDD") Then
Wochentag.Activate
Exit For
End If
Next
End Sub
https://www.herber.de/bbs/user/156819.xlsm
Danke an jeden der sich meinem Problem annimmt :)
VG