Datum scrollen
03.10.2005 14:20:21
Josef
kann mir bitte jemand helfen, unten stehendes Makro so abzuändern, dass beim öffnen des Workbooks der 1. des aktuellen Monats in der erste Zeile steht?
Private Sub Workbook_Open()
Dim wks As Worksheet
Dim iRow As Integer
For Each wks In Worksheets
If wks.Name Like "AA#*" Then
iRow = WorksheetFunction.Match(CDbl(Date), wks.Columns(1), 0)
Application.Goto wks.Cells(iRow, 1), True
End If
Next wks
Sheets("Auswertung").Select
End Sub
Danke schon mal im voraus
Gruß Josef
Anzeige