Aktueller Monat in allen TB
06.07.2005 14:52:30
Josef
kann mir bitte jemand helfen, dass unten stehende Makro so abzuändern, so das alle TB diese Funktion ausführen?
Die Namen der TB sind: Jan, Feb, Mrz bis Dez.
Private Sub Workbook_Open()
Sheets("Tabelle1").Activate
Columns(1).Find(What:=DateSerial(Year(Date), Month(Date), 1), lookat:=xlWhole, LookIn:=xlValues).Activate
End Sub
Vielen Dank schon mal
Guss
Josef
Anzeige