29.10.2021, 15:21
Alles gut 
Seiten: 1 2
31.10.2021, 14:38
Ein schönen Sonntag zusammen,
der Code funktioniert einwandfrei. Das Tabellenblatt mit dem aktuellen Datum wird nun immer in der Leiste ganz Links eingeblendet.
Allerdings wird das Tabellenblatt vom Vortag auch noch angezeigt. Wie müsste der Code geändert werden, dass Tabellenblätter mit einem anderen Datum ausgeblendet werden.
Danke für Eure Tipps.
VG
Rudi
der Code funktioniert einwandfrei. Das Tabellenblatt mit dem aktuellen Datum wird nun immer in der Leiste ganz Links eingeblendet.
Allerdings wird das Tabellenblatt vom Vortag auch noch angezeigt. Wie müsste der Code geändert werden, dass Tabellenblätter mit einem anderen Datum ausgeblendet werden.
Danke für Eure Tipps.
VG
Rudi
31.10.2021, 15:11
Dann könnte das so heißen:
Code:
Private Sub Workbook_Open()
Dim wS As Worksheet
On Error GoTo ERR_Handler
For Each wS In ThisWorkbook.Worksheets
If IsDate(wS.Name) And wS.Visible = xlSheetVisible Then
If CDate(wS.Name) < CDate(Date) Then
wS.Visible = xlSheetHidden
Else
wS.Move before:=Worksheets(1)
End If
End If
Next wS
Exit Sub
ERR_Handler:
MsgBox "Das ist was schief gelaufen"
End Sub31.10.2021, 16:20
Funktioniert perfekt.
Danke für die schnelle Hilfe.
VG
Rudi
Danke für die schnelle Hilfe.
VG
Rudi
02.11.2021, 00:36
Hallo Boris,
warum auch immer wird das aktuelle Datum nicht eingeblendet. Gestern 01.11.2021 lief alles perfekt. Heute (02.11.2021) wird das Tabellenblatt mit dem aktuellen Datum nicht eingeblendet.
Aus Gründen der Übersicht sind die Tabellenblätter mit Datum alle ausgeblendet. Sorry, dass ich diese Angabe vergessen habe.
Könntest Du mir sagen wir der Code geändert werden muss, damit nur das Tabellenblatt mit dem aktuellen Datum links angezeigt wird?
Viele Grüße
Rudi
warum auch immer wird das aktuelle Datum nicht eingeblendet. Gestern 01.11.2021 lief alles perfekt. Heute (02.11.2021) wird das Tabellenblatt mit dem aktuellen Datum nicht eingeblendet.
Aus Gründen der Übersicht sind die Tabellenblätter mit Datum alle ausgeblendet. Sorry, dass ich diese Angabe vergessen habe.
Könntest Du mir sagen wir der Code geändert werden muss, damit nur das Tabellenblatt mit dem aktuellen Datum links angezeigt wird?
Viele Grüße
Rudi
02.11.2021, 08:36
Hallo Rudi,
Gruß Uwe
Code:
Private Sub Workbook_Open()
Dim wS As Worksheet
On Error GoTo ERR_Handler
For Each wS In Worksheets
If IsDate(wS.Name) Then
wS.Visible = wS.Name = Format(Date, "dd.mm.yyyy")
End If
Next wS
Worksheets(Format(Date, "dd.mm.yyyy")).Move Before:=Worksheets(1)
Exit Sub
ERR_Handler:
MsgBox "Das Blatt """ & Format(Date, "dd.mm.yyyy") & """ wurde nicht gefunden!", vbInformation
End SubGruß Uwe
02.11.2021, 16:28
Danke für die, wie immer, schnelle und kompetente Hilfe.
VG
Rudi
VG
Rudi
Seiten: 1 2