Application.Goto Reference
25.02.2013 15:14:24
Benedikt
Seit Jahr und Tag läuft unser Terminkalender reibungslos. Heute Morgen sah die Welt ein wenig anders aus. Laufzeitfehler 1004 Objekt nicht gefunden, Debugging bei
Application.Goto Reference:=GZ
Nicht so schlimm, letztjährigen Kalender an den Start und leider die selbe Fehlermeldung,
Private Sub Workbook_Open()
Dim AktuellKW, GZ As String
AktuellKW = Worksheets("Stammdaten").Range("E1").Value
Sheets("Kalender").Select
GZ = "KW_" & AktuellKW
Application.Goto Reference:=GZ
Application.Goto GZ, True
Application.Goto Scroll:=True
Range("A2").Select
End Sub
Erstaunlicher weise führt er den selben Code beim schliessen ohne Fehlermeldung aus Sub PDFspeichern()
ThisWorkbook.Activate
Dim AktuellKW, GZ As String
AktuellKW = Worksheets("Stammdaten").Range("E1").Value
Sheets("Kalender").Select
GZ = "KW_" & AktuellKW & "und" & AktuellKW + 1
Application.Goto Reference:=GZ
End Sub Was kann die Ursache sein bzw. was kann ich dagegen unternehmen?
Vielen Dank für Eure Hilfe