Private Sub Workbook_Open() - BUG

Hallo Daniel,

danke für den Hinweis. Habe leider nicht die Zeit weitere Recherchen durchzuführen.

Für das Problem habe ich einen akzeptablen workaround gefunden:

Ich Starte mit "Keine Warnung anzeigen und Verknüpfung nicht aktualisieren".

Somit aktiviert Excel auch das Makro Workbook_Open Sub in "Diese Arbeitsmappe".

In dieses Makro habe ich jetzt zusätzlich die Aktualisierung eingebaut und es tut.

Da das Problem so speziell ist, möchte ich nicht, dass die MS Entwickler damit belastet werden.

(Ich hatte dieses Verhalten soweit eingegrenzt, dass es nur beim Aufruf aus einem
webdav Ordner auftrat. Aus allen anderen Ordnern wie dropbox, onedrive hatte Excel keine Probleme das Makro aufzurufen und das gewünschte Datenblatt zu öffen!)

LG Carsten

Hallo Claus,

habe das Problem noch etwas genauer untersucht.

Die Quelle des Übels ist offensichtlich mein "wedav" Ordner.

Die Daten liegen auf (Beispiel)

Basistabelle:

https://meine-daten.de/remote.php/webdav/test-open.xlsx]

Verknüpfungstabelle:

https://meine-daten.de/remote.php/webdav/test-webdav.xlsx]

In der Tabelle test-webdav stehen die zu verknüpfenden Daten.

Mit der Excel Tabelle test-open möchte ich drauf zugreifen.

Nur wenn ich beim Start nicht aktualisiere wird Sub Workbook_Open
abgearbeitet.

Somit gibt es wahrscheinlich keine Lösung für diesen BUG.

Eigenlich schade oder fällt dir da nochwas ein??

LG Carsten

Hallo Carsten,

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

Claus

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

Somit gibt es wahrscheinlich keine Lösung für diesen BUG.

Eigenlich schade oder fällt dir da nochwas ein??

Der Bug ist in Deinem Kopf. ;-)

Wo liegt das Problem vor dem Speichern das Blatt und die Zelle anzuwählen?

Dann ist dieses auch direkt beim Öffnen da... ganz ohne Code.

Andreas.

Option Explicit

Dim LastSheet As Object

Dim LastCell As Range

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

Application.ScreenUpdating = False

If Not LastSheet Is Nothing Then LastSheet.Select

If Not LastCell Is Nothing Then LastCell.Select

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Application.ScreenUpdating = False

Set LastSheet = ActiveSheet

Set LastCell = ActiveCell

Sheets("Basisdaten").Select

Range("F5").Select

End Sub