Private Sub Workbook_open/Datum suchen

Private Sub Workbook aufgerufen wird. Das Makro sucht in einem bestimmten Bereich das aktuelle Tagesdatum.Das Makro funktioniert unter den Betriebssystemen Windows 2000 und Windows XP mit verschiedenen Excel-Versionen. Aber unter Windows NT funktioniert das Makro nicht, bzw. das Makro startet, findet aber das Datum nicht und gibt eine Fehlermeldung aus. Verwaltet NT das Datum anders? Oder woran kann das nicht liegen?

Private Sub Workbook_open
Call gotoDate
End Sub


Sub gotoDate()

Dim rng As Range

Set rng = ActiveSheet.Range("D9:D1224").Find(What:=Date, LookIn:=xlValues, LookAt:=xlWhole)

'Spalte anpassen

If Not rng Is Nothing Then

Application.Goto rng, True

Else

MsgBox "Das Aktuelle Datum wurde nicht gefunden!", vbExclamation

End If

End Sub