meine Datei hat 12 Tabellenblätter. Die Blätter sind nach den Monaten genannt. Wie kann ich es einrichten, dass beim Starten der Datei, das aktuelle Blatt aktiv wird?
Gruß
Mister B
Private Sub Workbook_Open()
Worksheets(Format(Date, "MMMM")).Activate ' Blattnamen Januar, Februar usw.
' Worksheets(Format(Month(Date), "0")).Activate ' Balattnamen 1, 2 usw. bis 12
End Sub
Private Sub Workbook_Open()
Dim aMonat As Variant
aMonat = Array(" ", "Januar", "Februar", "März", "April", "Mai", "Juni", _
"Juli", "August", "September", "Oktober", "November", "Dezember")
Worksheets(aMonat(Month(Date))).Select
End Sub
Private Sub Workbook_Open()
Worksheets(Format(Date, "mmmm")).Activate
End Sub
Private Sub Workbook_Open()
Dim ws As Worksheet
Dim monat As String
Application.ScreenUpdating = False
monat = Format(Now, "mmmm")
For Each ws In ActiveWorkbook.Sheets
If ws.Visible = 2 Or 0 Then ws.Visible = 1
Select Case ws.Name
Case monat
ws.Visible = xlSheetVisible
Case Else
ws.Visible = xlSheetVeryHidden
End Select
Next
Application.ScreenUpdating = True
End Sub