url aus vba öffnen und Browserfenster minimieren

Guten Tag,
ich bin auf der Suche nach einer Möglichkeit mein aktives Excel-Fenster wieder zu aktivieren, nachdem ich via vba ein Browserfenster geöffnet habe und eine url aufgerufen habe. Das ist nötig um Laufzeitfehler zu verhindern (startet eine browserbasierte Anwendung).
Alle Versuche laufen darauf hinaus, dass das Browserfenster aktiv und maximiert bleibt (Fokus bleibt darauf), meine Excel-Arbeitsmappe aber im Hintergrund in der Taskleiste liegt.
Wie bekomme ich es hin, dass das beim Start der Excel-Arbeitsmappe geöffnete Browserfenster gleich wieder minimiert wird und stattdessen die Excel-Arbeitsmappe aktiv und im Fokus ist?

Hier ist mein derzeitiger Code (wird bei Workbook_open ausgeführt:

Variable1 = "cmd /c start microsoft-edge:https://www.xyz.de"
ausfuehren = Shell(Variable1, 6)

Bin für jeden Tipp dankbar.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub b() Dim oShell As Object, Variable1 As String, ausfuehren Set oShell = CreateObject("shell.application") Variable1 = "cmd /c start microsoft-edge:https://www.herber.de/forum/messages/1951952.html" 'anpassen ausfuehren = Shell(Variable1, 6) Application.Wait Now() + TimeSerial(0, 0, 3) oShell.MinimizeAll AppActivate Application.ActiveWindow.Caption Application.Wait Now() + TimeSerial(0, 0, 3) oShell.undoMinimizeAll Set oShell = Nothing End Sub

Leider funktioniert auch das nicht. der Fokus bleibt auf dem Browserfenster und die xlsm liegt im Hintergrund.
Ich habe es auch mit Zeitverzögerung versucht, da die Browseranwendung je etwas braucht. Das führt nur dazu, dass nach den fünf Sekunden mein Excel-Task in der Taskleiste blinkt, das Browserfenster aber trotzdem darüber bleibt.
Ich habe auch weiter recherchiert. Es gibt auch Lösungen mit Funktionen. Damit habe ich aber Schwierigkeiten.
Ich bin für jede Hilfe unendlich dankbar.

Das ist der aktuelle code:

Sub Workbook_Open()

Dim Variable1, ausfuehren



Variable1 = "cmd /c start microsoft-edge:https://url.de"

ausfuehren = Shell(Variable1, 6)



DoEvents

Application.Wait Now() + TimeSerial(0, 0, 5)

DoEvents



AppActivate Workbooks("meine_Arbeitsmappe.xlsm").Application.Caption



End Sub

Beliebteste Forumthreads (12 Monate)

url aus vba öffnen und Browserfenster minimieren

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

url aus vba öffnen und Browserfenster minimieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread