Laufzeitfehler '91' ?
06.10.2005 19:35:31
Josef
kann mir bitte jemand bei dem unten stehenden Makro helfen, folgende Fehlermeldung zu erklären?
"LAUFZEITFEHLER '91'
Objektvariable oder With-Blockvariable nicht festgelegt.
Falls ihr mich für bekloppt erklären wollt, könnt ihr ja immer noch die Aussage verweigern. Falls mir trotzdem jemand helfen kann, wäre ich sehr dankbar.
Private Sub Workbook_Open()
Dim wks As Worksheet
Dim iRow As Long
Dim d As Variant
Dim Datum1, Jahr1, Monat1
For Each wks In Worksheets
If wks.Name Like "AA#*" Then
Monat1 = Month(Date)
Jahr1 = Year(Date)
Datum1 = DateSerial(Jahr1, Monat1, 1)
Set d = Columns(1).Find(What:=Datum1, LookIn:=xlValues, LookAt:=xlWhole)
iRow = d(1, 1).Row
Application.Goto wks.Cells(iRow, 1), True
End If
Next wks
Sheets("Auswertung").Select
End Sub
Gruss Josef