Sie möchten das Tabellenblatt mit dem aktuellen Monatsnamen beim Öffnen der Datei automatisch wählen?

Sie haben eine Exceldatei in der sich Tabellenblätter mit den verschiedenen Monatsnamen befinden.

Beim Start der Datei soll automatisch das Tabellenblatt für den aktuellen Monat ausgewählt werden.

Dazu setzen Sie nachstehenden Code ins WorkbookOpen Ereignis:

Option Explicit

Private Sub Workbook_Open()
Dim strAktMonat As String
Dim ws As Worksheet
strAktMonat = Format(Date, "MMMM")
For Each ws In ActiveWorkbook.Worksheets
   If ws.Name = strAktMonat Then
          Worksheets(strAktMonat).Select
          Exit Sub
   End If
Next
End Sub

Mit Klick auf das nachstehende Symbol können Sie sich die Datei zum Code herunterladen