Hallo Zusammen,
mit diesem Code habe ich früher mal eine Strecke in Google Maps aufgerufen.
Dim X_ABS_Ort As String
Dim X_ABS_Plz As String
Dim X_ABS_Strasse As String
Dim X_EMPF_Plz As String
Dim X_EMPF_Ort As String
Dim X_EMPF_Strasse As String
X_ABS_Plz = Me.ABS_PLZ
X_ABS_Ort = Me.ABS_ORT
X_ABS_Strasse = Me.ABS_Strasse
X_EMPF_Plz = Me.EMPF_PLZ
X_EMPF_Ort = Me.EMPF_ORT
X_EMPF_Strasse = Me.EMPF_Strasse
URL = "https://www.google.de/maps?f=q&source=s_q&view=text&q=" & X_ABS_Plz & " " & X_ABS_Ort & " " & " nach " & X_EMPF_Plz & " " & X_EMPF_Ort & ""
Application.FollowHyperlink URL
Er öffnet ordnungsgemäß Google Maps und zeigt kurzzeitig die Strecke an.
Nur dann fordert er mich auf Edge zu benutzen da der InternetExplorer nicht mehr funktioniert.
Kann man das irgendwie gleich in Edge öffnen ? Wir haben leider Firefox als Standard Browser.
kann das auch nicht umstellen.
Herzlichen Dank für eure Antworten
Lg Bernie
Einen bestimmten Browser kannst Du mit wshshell öffnen hier ein Beispiel für Chrome
Dim wshshell
Set wshshell = VBA.CreateObject("WScript.Shell")
wshshell.Run "Chrome.exe -url " & "https://..........", , True
Set wshshell = Nothing
Da ich Edge nicht nutze musst Du den exe Aufruf für Edge rausfinden.
Hi Joschi klasse danke ! War jetzt etwas gepfriemel bis ich den neuen Link-String gebastelt hatte ..funktioniert jetzt aber wunderbar.
Merci
Lg Bernie
Hallo Bernie
Es wäre schön, wenn du den gepfriemelten neuen Link-String mit uns teilen würdest.
Hi Kobi klar, so funktioniert es jetzt bei mir :
URL = "https://www.google.de/maps/dir/" & Me.ABS_Plz & "+" & Me.ABS_Ort & "\" & Me.EMPF_Plz & "+" & Me.EMPF_Ort
Dim wshshell
Set wshshell = VBA.CreateObject("WScript.Shell")
wshshell.Run "Msedge.exe -url " & URL, , True
Set wshshell = Nothing
Lg Bernie
Danke!
Grüsse aus der Schweiz
Köbi