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.
:)
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
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?
Zitat von: zilo am April 10, 2018, 12:49:18So "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"?
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/
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
Das geht doch ziemlich genau analog. Im VBA-Direktfenster:FollowHyperlink "http://www.openstreetmap.org/directions" & _
"?engine=grasshopper_bicycle" & _
"&from=Berlin,12051,Karl-Marx Strasse 147" & _
"&to=Potsdam,Isoldestrasse 4"
Zitat von: Lachtaube am April 10, 2018, 14:01:04
Das geht doch ziemlich genau analog. Im VBA-Direktfenster:
Genau! Deshalb meine Frage nach dem konkreten Problem.
Nebenbei: Die Engine heißt:
graphhopper_bicycle
Ich muss vielleicht doch noch einmal den Optiker besuchen - aber vielleicht hilft es auch, einfach mal die Brille zu putzen. :)
Oder weniger zu rauchen ;D
Zitat von: Lachtaube am April 10, 2018, 14:01:04
Das geht doch ziemlich genau analog. Im VBA-Direktfenster: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 :-)