Datum in erste Zeile scrollen
24.09.2005 23:15:31
Josef
Ich möchte mit unten stehendem Makro erreichen, das beim starten der Arbeitmappe, dass Datum des ersten Tages des aktuellen Monats in der ersten Zeile des Tabellenblattes erscheint. Die Arbeitsmappe enhält 21 Tabellenblätter,
die in der Struktur alle gleich sind.
Kann mir bitte jemand von Euch dabei helfen?
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Columns(1).Find(What:=DateSerial(Year(Date), Month(Date), 1), lookat:=xlWhole, LookIn:=xlValues).Activate
Next ws
End Sub
Danke schon mal
Gruß
Josef
Anzeige