Private Sub Workbook_Open() - BUG

Question

Habe eine Frage:

Wenn ich meine Excel Tabelle öffne, möchte ich, dass immer ein fest definiertes Datenblatt ausgegeben wird.

Dazu hab ich in "Diese Arbeitsmappe" folgenden Code eingegeben:

Private Sub Workbook_Open()

Sheets("Basisdaten").Activate

Range("F5").Select

End Sub

Leider ist nach dem Öffnen nie das gewünschte Datenblatt geöffnet worden.

Excel hat nie diesen Private Sub aufgerufen. Geprüft mit MsgBox.

Nach aufwendiger Suche habe ich das Problem gefunden.

Die Excel Tabelle enthält Verknüpfungen zu anderen Arbeitsmappen.

Ich hatte nun eingestellt, (Verknüpfung bearbeiten/Eingabeaufforderung beim Start) dass beim Öffnen keine Warnung angezeigt wird und die Verknüpfungen aktualisiert werden sollen.

Das hat Excel auch gemacht aber dabei den Workbook_Open Subnicht mehr aufgerufen.

Wenn ich jetzt "Keine Warnung anzeigen und Verknüpfung nicht aktualisieren" einstelle, wird der Code aus "Diese Arbeitsmappe" ausgeführt.

Was tun? Ich möchte dass beim Öffnen die Arbeitsmappe aktualisiert wird und das Datenblatt "Projektbeschreibung" geöffnet wird.

Gibt es hier einen Workaround??

LG MICA

Answer 1

Hallo Carsten,

das Open-Makro wird bei mir immer ausgeführt, egal welche Einstellung ich bei Verknüpfung bearbeiten eingestellt habe. Diese Einstellung beeinflusst nur, ob die Daten aktualisiert werden.

Der Fehler muss woanders liegen. Hast du mal die Einstellung in den Excel-Optionen => Erweitert => Beim Berechnen dieser Arbeitsmappe kontrolliert?

Claus

Answer 2

Habe sehr viele Makros in der xlsm Tabelle drin.

Es funktioniert ja auch richtig gut, wenn ich "Keine Warnung anzeigen und Verknüpfung nicht aktualisieren"

eingestellt habe**.**

Carsten

Answer 3

Hallo Carsten,

laufen denn bei dir überhaupt Makros? Vielleicht wird dies durch die Sicherheitseinstellungen generell blockiert.

Claus

Answer 4

Hallo Claus,

vielen Dank für die schnelle Antwort.

Leider haben beide Tipps nicht zum Erfolg geführt.

Habe noch in das Sub Workbook_Open eine MsgBox eingebaut.

Beim Öffnen wir dieser Sub nicht aufgerufen.

Auch nachdem ich

Application.EnableEvents = True

laufen lassen habe, hat sich nichts geändert.

Nochne Idee?

LG Carsten

Answer 5

Hallo,

probiere es mal so:

Private Sub Workbook_Open()

Application.DisplayAlerts = False

ActiveWorkbook.RefreshAll

Application.Goto Sheets("Basisdaten").Range("F5")

Application.DisplayAlerts = True

End Sub

Sollte das Event-Makro dann immer noch nicht aufgerufen werden, hast du sehr wahrscheinlich irgendwo einmal

Application.EnableEvents auf False gesetzt und nicht wieder zurückgesetzt.

Füge dann in die Mappe ein:

Sub Ein()

Application.EnableEvents = True

End Sub

und rufe das Makro auf, um die Events wieder einzuschalten. Danach sollte das Open-Event wieder ausgelöst werden.

Claus