Makro Tabellenblätter
09.02.2021 08:24:29
Susanne
Ich habe in einer Ecxeltabelle pro Monat ein Tabellenblatt mit dem jeweiligen Monat (Januar, _
Februar usw.). Ich habe ein Makro, dass beim öffnen der excel das Tabellenblatt des aktuellen _
Monats angezeigt wird. Das hatte auch gzt funktioniert. Nun soll das Tabellenblatt des _ jeweiligen Monats an den Anfang verschoben werden. Das habe ich integriert, funktioniert aber leider nicht. Wo liegt mein Fehler?:
Private Sub Monat()
Dim wbAkt as workbook
Dim wsakt as worksheet
Dim strName as string
Set wbAkt = ThisWorkbook
StrName = Format (Date, "mmmm")
WbAkt.worksheets(1).activate
For each wsAkt in wbAkt.worksheets
If wsAkt.Name = strName Then
WsAkt.Activate
Exit for
Exit if
activesheet. Move before:=sheets (1)
Next wsAkt
End Sub
Danke für Eure Hilfe
Gruß Susanne
Anzeige