Tabellenblatt mit dem aktuellen Monatsnamen beim Öffnen der Datei automatisch auswählen

Häufig hat man Dateien, deren Tabellenblätter sich auf die einzelnen Monate des Jahres beziehen. Um nun beim Öffnen der Datei sofort auf dem Tabellenblatt mit den Daten des aktuellen Monats zu landen, kann man in der Open-Prozedur der Datei ein kleines Makro verwenden. 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

Wichtig ist dabei, dass die Tabellenblätter mit den Monatsnamen in Langform (Januar, Februar, …) benannt sind.

Demodatei : Tabelle_aktueller_Monat_selektieren.xls

 Share on Facebook

Read more http://vba-codeschnipsel.de/tabellenblatt-mit-dem-aktuellen-monatsnamen-beim-offnen-der-datei-automatisch-auswahlen/