Automatisches Öffnen / Anzeige eines Tabelleblattes

[{Boris}]

Alles gut

[bigrudi1966]

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

[Frogger1986]

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 Sub

[bigrudi1966]

Funktioniert perfekt.

Danke für die schnelle Hilfe.

VG
Rudi

[bigrudi1966]

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

[Kuwer]

Hallo Rudi,

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 Sub

Gruß Uwe

[bigrudi1966]

Danke für die, wie immer, schnelle und kompetente Hilfe.

VG
Rudi