Office: Internet Explorer öffnen + erkennen, ob bereits offen

Boneman81 · 21. April 2015

Hallo,

ich möchte, dass beim Doppelklick auf eine Zelle ein Internet Explorer Fenster für die jeweilige Zeile aufgeht und 2 URLs mit Abstand von 5 Sekunden geladen werden.

Das mit dem Doppelklick und dem Öffnen der 2 URLs funktioniert soweit.

Meine aktuelle Herausforderung:
- beim Code 1 wurde immer ein ggf. existierendes IE Fenster berücksichtigt und dann nur ein neuer Tab geöffnet; allerdings stürzt Excel gelegentlich ab, daher bin ich zu Code 2 gewechselt
- beim Code 2 bekomme ich es nicht hin, dass ein bereits offener IE berücksichtigt wird und dann lediglich ein neuer Tab geöffnet wird (wenn ich also 3 mal in meinem Sheet doppelt klicke, dann habe ich 3 Fenster mit je 2 Tabs auf - ich hätte gern 1 Fenster mit 6 Tabs)

Code1 (wird nicht mehr genutzt wegen den Excel Abstürzen - hat aber wie gewünscht immer neue Tabs geöffnet)
Code:

Dim url As String

'Single Sign On URL wird geöffnet
url = "https://erste_url.com"

CreateObject("Shell.Application").ShellExecute url

'Wait
Application.Wait (Now + TimeValue("0:00:5"))

url = "https://zweite_url.com"

'Ziel-URL wird geöffnet
CreateObject("Shell.Application").ShellExecute url
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code2
Code:

Dim url As String

'Single Sign On URL wird geöffnet
url = "https://erste_url.com"

Dim objIE As InternetExplorerMedium

If objIE Is Nothing Then
Set objIE = New InternetExplorerMedium

objIE.Navigate url
objIE.Visible = True
Else
objIE.Navigate url, 2048&
objIE.Visible = True
End If

'Wait
Application.Wait (Now + TimeValue("0:00:5"))

url = "https://zweite_url.com"

objIE.Navigate url, 2048&

Set objIE = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke!

:)

Office: Internet Explorer öffnen + erkennen, ob bereits offen

Internet Explorer öffnen + erkennen, ob bereits offen

Internet Explorer öffnen + erkennen, ob bereits offen

Internet Explorer öffnen + erkennen, ob bereits offen - Similar Threads - Internet Explorer öffnen

Anzeigen der gleichen RSS-Feeds in Windows Internet Explorer und in Outlook

Anzeigen der gleichen RSS-Feeds in Internet Explorer und in Outlook

Internet Explorer per VBA schließen

Datensatz in Internet Explorer anzeigen

Microsoft Teams funktioniert ab dem 30. November nicht mehr mit Internet Explorer 11

Internet Explorer-Sicherheit

Umfrage: Internet Explorer oder FireFox