Fehler auf anderen PC ?
Heinz
Warum lauft dieses Makro nicht auf einen anderen PC?
Fehler bei
Set rng = Range("A:A").Find(Date, LookAt:=xlWhole)
Könnte mir bitte jemand weiterhelfen ?
Danke & 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
Anzeige