Open Street Map

[zilo]

Hallo Zusammen,

ich möchte die OpenStreetMap in meinen Formular einbinden so dass ich eine Route planen kann.
Die Eingabe der Start und Ziel adresse soll im Formular erfolgen (also nicht über die Karte)
Mit einem btnClick soll es dann die entsprechende Route anzeigen.

Wie sollte ich vorgehen? Das WORLD WIDE WEB meinte ich brauche zusätzliche Kenntnisse in JavaScript? Leider habe ich damit keine Erfahrung gemacht und mit VBA genauso wenig.


Vielen Dank im Vorraus.

[datekk]

Hallo Zilo und herzlich Willkommen hier im Forum. Ich kann Dir leider nicht konkret zu Open Street Map helfen. Bitte nutze doch mal die Suchfunktion hier im Forum und suche nach Google Maps. Da gibt es einige Beiträge und auch ich nutze die Google Maps API zum berechnen von Entfernungen in meiner Access Datenbank.

LG
datekk

[zilo]

Das habe ich - und auch schon in diversen Foren, leider finde ich keine Antworten 

Also Google Maps hat ja diesen folgenden Link:
'strHyperlink = "http://maps.google.de/maps?f=d&hl=de&saddr=" _
                 & Start & "&daddr=" & Ziel

damit kann ich mit einem Button im Formular Google Maps öffnen und er berechnet mir dann die Route aus Werten aus der Tabelle.

So "Müsste" es doch in OSM aussehen? Funktioniert aber nicht 

'strHyperlink = "http://www.openstreetmap.org/directions?from=" _
                & Start "&to=" & Ziel &


Hat da jemand eine Ahnung?

[PhilS]

So "Müsste" es doch in OSM aussehen? Funktioniert aber nicht 

'strHyperlink = "http://www.openstreetmap.org/directions?from=" _
                & Start "&to=" & Ziel &

Was heißt "Funktioniert aber nicht"?

[markusxy]

Der erste Treffer beim Googlen:

https://analystcave.com/excel-calculate-distances-between-addresses/

Zweiter Treffer:

https://desmondoshiwambo.wordpress.com/2013/06/20/how-to-get-google-travel-time-and-distance-in-vba/

[zilo]

Also das ist mal der Mini Code:

Private Sub Befehl6_Click()

    Dim strHyperlink As String
    Dim Start As String
    Dim Ziel As String

    'Werte (Start und Ziel) in Formular eingeben
    Start = Me!Ziel_Adresse & " " & Me!Ziel_PLZ
    Ziel = Me!Adresse & " " & Me!PLZ
   
'saddr = Ausgangspunkt
'daddr = Zielpunkt

strHyperlink = "http://maps.google.de/maps?f=d&hl=de&saddr=" _
                 & Start & "&daddr=" & Ziel
   
    Application.FollowHyperlink strHyperlink
   
   
End Sub

(Anders zu meiner Frage ist hier Google Maps nicht im Formular integriert)

Und meine Frage war ob es möglich ist genau nach dem gleichen Prinzip OpenStreetMap zu öffnen und die Route anzeigt.

LG

[Lachtaube]

Das geht doch ziemlich genau analog. Im VBA-Direktfenster:

Code [Auswählen] Erweitern

FollowHyperlink "http://www.openstreetmap.org/directions" & _
                "?engine=grasshopper_bicycle" & _
                "&from=Berlin,12051,Karl-Marx Strasse 147" & _
                "&to=Potsdam,Isoldestrasse 4"

[PhilS]

Das geht doch ziemlich genau analog. Im VBA-Direktfenster:

Genau! Deshalb meine Frage nach dem konkreten Problem.
Nebenbei: Die Engine heißt: graphhopper_bicycle

[Lachtaube]

Ich muss vielleicht doch noch einmal den Optiker besuchen - aber vielleicht hilft es auch, einfach mal die Brille zu putzen.

[Beaker s.a.]

Oder weniger zu rauchen 

[zilo]

Das geht doch ziemlich genau analog. Im VBA-Direktfenster:

Code [Auswählen] Erweitern

FollowHyperlink "http://www.openstreetmap.org/directions" & _
                "?engine=grasshopper_bicycle" & _
                "&from=Berlin,12051,Karl-Marx Strasse 147" & _
                "&to=Potsdam,Isoldestrasse 4"

Wenn ich die Ausgabe nicht im Direktfenster machen will sondern über mein Formular also mit Werten aus der Tabelle Automatisch übergeben möchte?
(Wie im Mini Beispiel oben: Da werden die Start/Ziel Adressen von der Tabelle übergeben).


UPDATE:
FollowHyperlink "http://www.openstreetmap.org/directions?from=&to=" _
                & Start & "&from=" & Ziel

Damit hat es geklappt :-)