FEHLERMELDUNG BEI MAKRO
13.01.2004 09:16:35
jürgen
vor einiger zeit hat man mir hier weitergeholfen mit einem makro bzgl. des - springens in die tabellenzeile mit dem heutigen datum -
leider hat sich dort irgendwo ein fehler eingeschlichen - ich weiß nicht weiter.
" laufzeitfehler 1004 " - die methode "goto" für das objekt application ist fehlgeschlagen.
*********************************************************
Option Explicit
Private Sub CommandButton1_Click()
Dim c As Range
Dim laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 4).End(xlUp).Row
For Each c In Range("D1:D" & laR)
If c.Value = Date Then
Application.Goto Reference:=Range(c.Address), Scroll:=True
ActiveWindow.ScrollColumn = 1
Exit For
End If
Next c
Application.ScreenUpdating = True
End Sub
******************************************************************************
kann ev. jemand weiterhelfen?
gruß
jürgen