Fehler bei "Date"
Heinz
Habe ein Makro das bei 3 PC'S funkt. nur bei einem PC bekomme ich die Fehlermeldung bei "Date"
"Projekt oder Bibliothek nicht gefunden"
Auf allen Rechner ist Office 2003 installiert.
Wo bitte liegt bitte der Fehler ?
Gruß
Heinz
Option Explicit
' ****Automatisch zur aktuellen Kalenderwoche springen ****
Private Sub Workbook_Open()
'Application.ActivePrinter = "D231 (NRG DSm622 PCL 6) auf Ne00:"
'frmSplash.Show
Dim rng As Range
Dim iCounter As Integer
Sheets("WoMat").Activate
Set rng = Range("A:A").Find(Date, LookAt:=xlWhole)
If Not rng Is Nothing Then
iCounter = 0
Do Until rng.Offset(iCounter, 1).Value = "Kalenderwoche"
iCounter = iCounter + 1
Loop
End If
'ActiveWindow.ScrollRow = rng.Row + iCounter
Set rng = Nothing
End Sub