Luftlinie errechnen mit PLZ

[Thenotebook]

Ich würde gerne die Luftlinien zwischen zwei Postleitzahlen errechnen lassen.
In der Spalte A und Spalte B stehen jeweils die Postleitzahlen, in Spalte C soll die Entfernung zwischen diesen beiden stehen.
Also in C2 die Entfernung von B2 und A2 usw.
Wie kann ich das hinbekommen?


Dafür gibt es ja die Webseite https://www.suche-postleitzahl.org/plz-entfernung


[
Bild bitte so als Datei hochladen: Klick mich!
]

[Zwergel]

Hi,

ich habe damit mal eine Berechnung gemacht und das Ergebnis ist für die Tonne. Gehe ich jeweils von den Ortsmitten aus, ist ja nicht dargestellt, wie die Entfernung ermittelt wird, dann ist Ergebnis 3 km, tatsächlich aber 9 km.
Frage ob solche Ungenauigkeiten nicht stören.
Vielkleicht gehts ja auch mit Google Maps, dazu gibts  hier einige Beiträge. Suche nutzen.

[Thenotebook]

Ich habe die Artikel zu Google Maps gelesen. Leider hat Google Maps aber einige Beschränkungen.
Da kleine Abweichungen unwichtig sind, wollte ich gerne https://www.suche-postleitzahl.org/plz-Entfernung nutzen.

Also die Entfernung von Karlsruhe nach Stuttgart bekomme ich z.B. über:
https://www.suche-postleitzahl.org/plz-entfernung?plz-start=76131&plz-ziel=70173
Dies möchte ich gerne für eine einfache Funktion namens Entfernung nutzen.

Also ich denke mal, dass man so anfangen kann:

Code:

Public Function Entfernung(start As String, ziel As String)
   Dim erster As String, zweiter As String
    erster = https://www.suche-postleitzahl.org/plz-entfernung?plz-start="
    zweiter = "&plz-ziel="
    URL = erster & Replace(start, " ", "+") & zweiter & Replace(ziel, " ", "+")

Aber wie funktioniert das denn jetzt mit dem Aufrufen und dem Auslesen des Ergebnisses?
Als Browser kann ich nur den Internet Explorer nutzen.

[lupo1]

Eine These oder auch durch nichts unterstützte Behauptung, vermutlich nicht ganz der Wirklichkeit entsprechend:

Ist die Art der Straße egal (Autobahn oder Nebenstrecken), gilt für Luftlinienkilometer im Schnitt

<10 das 1,3fache
<100 das 1,2fache
<1000 das 1,1fache
>1000 etwas weniger Zuschlag

zu fahren. Voraussetzungen: Keine Wasserflächen auf dem Weg oder zu umfahren! Vermutlich gilt das ähnlich für hügelige Strecken.

Habe ich mir tatsächlich gerade so ausgedacht.

[RPP63]

Moin!
Mache es doch rein in Excel:
Hier gibt es eine Tab-getrennte Liste:
http://www.fa-technik.adfc.de/code/opengeodb/
Errechnung dann per SVerweis in Verbindung mit http://www.herber.de/forum/archiv/1032to...en_ca.html

Gruß Ralf

[schauan]

Hallöchen,

ich hab jetzt nicht mehr den ganzen langen Thread im Hinterkopf , aber das Thema Luftlinie wurde dort wohl nicht behandelt.
Grundlage für die Berechnung bilden die Geodaten, die man dann mit entsprechenden Winkel- und sonstigen Funktionen per Formel oder auch per VBA berechnen kann.

Die Geo-Daten bekommt man bei google z.B. mit so einem Link raus:
https://maps.googleapis.com/maps/api/geo...49+germany&sensor=false
oder mit dem:
http://maps.googleapis.com/maps/api/geoc...nsor=false&address=07549+germany
Wobei man germany in Deutschland weg lassen kann

Die Ergebnisse müssten dann noch per code verarbeitet werden. Ich habe hier mal bisschen was aus dem Netz angepasst und eingearbeitet. Ausgelöst wird die Berechnung, wenn Du in die Zelle C2 wechselst.

Beim Ergebnis gilt hinsichtlich der (Un)Genauigkeit das, was Michael schon geschrieben hat.

[schauan]

Hallöchen,

habe den Anhang meiner vorherigen Antwort noch mal ausgetauscht. Da waren im Code Länge und Breite vertauscht. Nun passt die Entfernung.

[lupo1]

Meistens gibt es zur Postleitzahl ja auch Adressen ... manchmal braucht man noch nicht mal welche.

Achtung: .XLSM-Datei! Ich habe sie vor knapp 2 Jahren mal in irgendeinem Forum gefunden - Urheber weiß ich nicht mehr. Läuft schick!

[schauan]

Hallo lupo,

für die "normalen" Entfernungen haben wir unseren langen Thread ....
http://www.clever-excel-forum.de/thread-...oogle+maps
Hier war die Luftlinie gefragt