Hallo Zusammen ich habe eine kleines Problem

Wenn ich meine Application neu abspeichere und das erste mal öffne kommt folgende Fehlermeldung:

Die Active-Methode des Worksheet-Objektes konnte nicht ausgeführt werden

wenn ich dann auf beenden drücke, das Excel schliessen und neu öffne funktioniert alles...

ich habe keine Ahnung wieso..... es funktioniert auch alles, aber ist einfach unschön wenn man das Excel das erste mal öffnet.


Ich habe euch mal den Code




Private Sub Workbook_Open()


'Aktivierung Home
Sheets("Home").Activate
'Sichtbarkeiten einstellen

With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayWorkbookTabs = False
End With

ActiveWindow.Zoom = 95



'Alles ausblenden
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",FALSE)"

'Aktivierung Home
Sheets("Home").Activate

'Startprozess
Splashscreen.Show


'Ausfüllen des StatusBar
Application.StatusBar = "Sugar Diary 2015 - Ver. 2.1 - (c) MT-Software - Mirco Tuor"

'Scroll Lock
Worksheets(1).ScrollArea = "A1:a50"
Worksheets(20).ScrollArea = "A1:a20"
Worksheets(21).ScrollArea = "A1:a20"
Worksheets(23).ScrollArea = "A1:a45"
Worksheets(24).ScrollArea = "A1:a65"

'Aktuelles Datum setzen
Sheets("Home").Range("D7").Value = "=TODAY()"


'Aktivierung Home
Sheets("Home").Activate


End Sub


Besten Dank

hey zusammen.


hab den ganzen Code gelöscht und neu geschrieben und jetzt funktionierst... komisch aber danke für eure Hilfe