Laufzeitfehler 9
07.10.2003 13:23:11
Alyssia Mc Kay
Hab vorhin von Werner folgendes Makro bekommen,
um das aktuelle Monats-Sheet automatisch zu öffnen.
Option Explicit
Private Sub Workbook_Open()
Dim SuBe As Range
Dim s As Date
Application.ScreenUpdating = False
Worksheets(Month(Date)).Select
s = Date
Set SuBe = Range("C7:C" & Rows.Count). _
Find(s, lookat:=xlWhole)
If Not SuBe Is Nothing Then
Range("H" & SuBe.Row).Select
Else
MsgBox "Tagesdatum nicht gefunden !", vbOKOnly + vbExclamation, _
"Dezenter Hinweis für " & Application.UserName & ":"
End If
Set SuBe = Nothing
Application.ScreenUpdating = True
End Sub
Nun bekomme ich immer "Laufzeitfehler 9".
Was ist der Grund und wie kann ich ihn beheben?
Wäre froh, für Eure Hilfe.
Danke und Gruss
Alyssia
Anzeige