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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen