Laufzeitfehler 1004
02.02.2016 07:58:57
Michael
ich bekomme nachfolgenden Fehler:
Laufzeitfehler
Die Methode Goto für das Objekt _Application ist fehlgeschlagen.
Es wird die Zeile
Application.Goto Reference:=ThisWorkbook.Worksheets("Aufstellung").Range("A1")
gelb Markiert
Hat hierzu jemand eine Idee warum das so ist?
Private Sub Workbook_Open()
On Error Resume Next
ThisWorkbook.Names("OK").Delete
On Error GoTo 0
AktName = ActiveSheet.Name
Steuerelemente.Show
Tabelle1.BlattschutzErstellen
Application.Goto Reference:=ThisWorkbook.Worksheets("Aufstellung").Range("A1")
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.ScrollArea = "A1"
Next
'15 Minuten nach dem Öffnen wird das erste mal gespeichert
Application.OnTime Now + TimeValue("00:15:00"), "Speichern"
End Sub