Entfernungen mittels VBA und openrouteservice ermitteln

Wolfgang Spann · 2024-09-26T11:56:00+00:00

Hallo Zusammen und Grüße in die Runde, ich habe ein Problem mit einer Funktion, die ich per VBA in eine Tabelle integrieren möchte. Ich habe eine Tabelle mit etwa 100 Adressen in Spalte A stehen Straßennamen, in Spalte B stehen Postleitzahlen und in Spalte C Ortsnamen. Das sind Wohnadressen. In Spalte D stehen Straßennamen, in Spalte E stehen Postleitzahlen und in Spalte F stehen Ortsnamen. Das sind die Arbeitsadressen. Ich möchte nun mithilfe von openrouteservice automatisch die Distanzen zwischen diesen Adressen ermitteln lassen. Gemeinsam mit ChatGPT habe ich hierfür einen Code erstellt, aber weder ich, noch die Ki finden den Fehler. Hat jemand von Euch eine Idee? Eine Beispieldatei im den dazugehörigen Makro habe ich hochgeladen: https://www.herber.de/bbs/user/172419.xlsm (Ohne API-Key, den möchte ich ungern veröffentlichen) Vielen Dank! Viele Grüße Wolfgang

Hi
hab das nochmal geprüft: du brauchst tatsächlich Punkte als Dezimalzeichen, also muss die Zeile beim Ermitteln der Koordinaten so aussehen:

coordinates = Replace(json("features")(1)("geometry")("coordinates")(1), ",", ".") & "," & Replace(json("features")(1)("geometry")("coordinates")(2), ",", ".")

damit funktioniert es soweit, dass du von deinem Routenplaner auch ein Ergebnis zurückbekommst.

wie du allerdings deinen Json bedienen musst, damit er aus dem Ergebnistext die Entfernung rausfieselt, muss du selber rausfinden.
ein json("routes") existiert auf jeden fall nicht.

außerdem zeigt die Zeile If json.Exists("routes") AND If json("routes").Count > 0 Then, dass hier ein unerfahrener Programmierer am Werk war, dann man kann nicht im selben IF prüfen, ob etwas vorhanden ist und gleichteit dieses dann verwenden.
man muss hier zwei Ifs daraus machen, erst prüfen .ob "routes" existert und und erst wenn es vorhanden ist, prüfen, wieviele einträge vorhanden sind.

Gruß Daniel

hallo zusammen,

ich komme auf die gleiche Beobachtung wie Daniel und Onur, war nur a bissele langsammer. Ich ergänze daher nur Onurs letzter Zustand mit dem Zugriff auf JSON.

der json-parser legt alles ab Index 1, nicht 0.

daher sollte

coordinates = json("features")(1)("geometry")("coordinates")(0) & "," & json("features")(1)("geometry")("coordinates")(1)

so aussehen

coordinates = json("features")(1)("geometry")("coordinates")(1) & "," & json("features")(1)("geometry")("coordinates")(2)

Ein deutscher Excel verwendet das Komma als Dezimaltrennzeichen. Es ist daher unglücklich, dass Du hier auch einen Komma zwischen beide Koordinate verwendest.:

coordinates = Replace(json("features")(1)("geometry")("coordinates")(1), ",", ".") & "," & Replace(json("features")(1)("geometry")("coordinates")(2), ",", ".")

Im Sub "GetDistance" scheint es einen abweichende JSON-Modell zu geben. Json("routes") ist nicht geliefert. Dafür müsste man auf

GetDistance = json("features")(1)("properties")("segments")(1)("distance") /1000

zugreifen.

Also nicht der Fehler war offensichtlich, sondern die Fehler ;-)

VG
Yal

Entfernungen mittels VBA und openrouteservice ermitteln

Forumthread: Entfernungen mittels VBA und openrouteservice ermitteln

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Entfernungen mittels VBA und openrouteservice ermitteln

Forumthread: Entfernungen mittels VBA und openrouteservice ermitteln

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread