mreske
Goto Top

Workook open funktioniert nicht

Hallo

eine Datei "C:\VBA\Test.xlsm", soll beim Öffnen folgendes Makro ausführen:

Option Explicit
Private Sub Workbook_Open()
MsgBox "Test"
End Sub

Das funktioniert auch soweit.


Nun möchte ich die selbe Datei aber über eine Schaltfläche neu starten.
Workbooks.Open Filename:= _
"C:\VBA\Test.xlsm"

Ich bekomme, wie erwartet, diese Meldung, die ich mit "Ja" bestätige.
2019-01-18_145838

Beim Öffnen der Datei wird jetzt aber NICHT das Makro Sub Workbook_Open() ausgeführt.

Kann mir jemand sagen, warum das nicht funktioniert?

Danke im Voraus

Content-Key: 398707

Url: https://administrator.de/contentid/398707

Printed on: April 19, 2024 at 16:04 o'clock

Member: emeriks
emeriks Jan 18, 2019 at 14:12:44 (UTC)
Goto Top
Hi,
ich könnte mir vorstellen, dass das entweder ein Bug ist oder so gewollt. Denn hier ist diese Datei ja "nicht neu" für Excel. Er wird sie wohl nicht wirklich neu öffnen sondern nur neu laden.

Du könntest statt dessen dieses Makro in eine andere Vorlage auslagern. Dann könntest Du das neu zu ladende Dokument zuvor explizit schließen und dann erst wieder öffnen.

Alternativ kannst Du im Makro zum Neu-Öffnen des Dokuments doch einfach die Sub Workbook_Open() selbst aufrufen.

E.
Mitglied: 137846
137846 Jan 18, 2019 updated at 14:58:56 (UTC)
Goto Top
Member: mreske
mreske Jan 18, 2019 at 16:26:08 (UTC)
Goto Top
Stimmt, das Thema hatte ich schon mal.
Wie auch immer: So würde es auch gehen:

2019-01-18_172411