So funktioniert JustAnswer:

  • Fragen Sie einen Experten
    Tausende Experten in über 200 Kategorien.
  • Erhalten Sie eine professionelle Antwort
    Per E-Mail oder sofortiger Benachrichtigung, während Sie auf unserer Website warten.
    Stellen Sie ggf. weitere Anschlussfragen.
  • 100%ige Zufriedenheit garantiert
    Bewerten Sie die erhaltene Antwort.

Stellen Sie Ihre Frage an tb179.

tb179
tb179, IT-Specialist
Kategorie: Computer
Zufriedene Kunden: 912
Erfahrung:  Fachinformatiker IT-Support: Hardware, Software, Netzwerke, Notebooks, Drucker
41102556
Geben Sie Ihre Frage in der Kategorie Computer hier ein
tb179 ist jetzt online.

Ich m chte die Luftlinie zwischen zwei GEO-Koordinaten in Excel

Kundenfrage

Ich möchte die Luftlinie zwischen zwei GEO-Koordinaten in Excel 2007 berechnen
Gepostet: vor 6 Jahren.
Kategorie: Computer
Experte:  tb179 hat geantwortet vor 6 Jahren.
Hallo, auf folgender Seite gibt es ein Skript, welches die Entfernung der Luftlinie berechnen sollte:

http://www.ms-office-forum.net/forum/showthread.php?t=240109
Kunde: hat geantwortet vor 6 Jahren.
Hallo,

leider kenne ich mich mit Makros nicht aus und kann deshalb den unten stehenden Makro-Code auch nicht in Excel 2007 zum Laufen bringen.

Können Sie ein Excel-Sheet (wichtig: Excel 2007!) mit dem Makro-Code erstellen und es über einen Link downloadbar machen?

Gerne akzeptiere ich Ihre Antwort, wenn ich ein funktionierendes Excel-Sheet habe.

Zum besseren Verständnis: ich brauche eine Excel-Formel oder ein Makro, mit dem ich die Luftlinie zwischen den PLZ-Mittelpunkten berechnen kann.

Hier der Makro-Code:

Sub Entfernung()
Dim Start As Date
Dim IEApp As Object
Dim IEDocument As Object
Dim strURL As String
Dim blnGefunden As Boolean
blnGefunden = False
von = InputBox("Geben Sie Start-PLZ ein.", "Start", "32791")
If von = "" Then Exit Sub
von_ort = InputBox("Geben Sie den Start-Ort ein.", "Start", "Start-Ort")
If von_ort = "" Then Exit Sub
nach = InputBox("Geben Sie Ziel-PLZ ein.", "Ziel", "32756")
If nach = "" Then Exit Sub
nach_ort = InputBox("Geben Sie Ziel-Ort ein.", "Ziel", "Ziel-Ort")
If nach_ort = "" Then Exit Sub
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate "http://www.falk.de//baseservices/do/routeService;jsessionid=24EBEF0EB55871AC2B2F65ABFA799EEE?#"
Start = Now
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Do
If DateDiff("s", Start, Now) > 5 Then Exit Do
Loop Until IEApp.ReadyState <> 4
Set IEDocument = IEApp.Document
IEDocument.getElementById("station[0].zip").Value = von
Application.Wait (Now + TimeValue("0:00:01")) '1 sec Pause
IEDocument.getElementById("station[1].zip").Value = nach
Application.Wait (Now + TimeValue("0:00:01")) '1 sec Pause
IEDocument.getElementById("station[0].city").Value = von_ort
Application.Wait (Now + TimeValue("0:00:01")) '1 sec Pause
IEDocument.getElementById("station[1].city").Value = nach_ort
Application.Wait (Now + TimeValue("0:00:01")) '1 sec Pause
IEDocument.all.btn_calcRoute.Click
Application.Wait (Now + TimeValue("0:00:15"))
IEDocument.all.btn_calcRoute.Click
Application.Wait (Now + TimeValue("0:00:05"))
Set iedoc = IEApp.Document
strTeile = Split(iedoc.Body.innerText, vbCrLf)
Debug.Print iedoc.Body.innerText
For i = LBound(strTeile) To UBound(strTeile)
If InStr(1, strTeile(i), "Entfernung:", vbTextCompare) > 0 Then
blnGefunden = True
msg = strTeile(i)
End If
Next
If blnGefunden = False Then
MsgBox "Die Adresse konnte nicht decodiert werden." & vbCr & "Falsche PLZ?"
Else
MsgBox msg
End If
IEApp.Quit
Set IEDocument = Nothing
Set IEApp = Nothing
End Sub

Mit freundlichen Grüßen

Thorwald Petersen
Experte:  tb179 hat geantwortet vor 6 Jahren.
Hallo,
ich habe Ihnen eine Exceldatei erstellt, mit deren Hilfe Sie die Entfernung der Luftlinie zwischen zwei Punkten berechnen können, deren Längen- und Breitengerade eingegeben werden. Ich hoffe das hilft erstmal weiter. Hier der Link zum Download:

http://www.file-upload.net/download-2599392/entfernungsberechnung.xls.html

Kunde: hat geantwortet vor 6 Jahren.
Vielen Dank für die Formel.

Leider ergeben sich derart große Abweichungen von den tatsächlichen Entfernungen, daß die Formel und/ oder die gesamte Herangehensweise nicht geeignet ist die Luftlinien-Entfernungen zwischen PLZ-Mittelpunkten zu berechnen.

Ich vermute, daß Excel mit der Berechnung von Winkelfunktionen schlicht überfordert ist, so daß es zu großen Rundungsfehlern kommt die letztllich mehrere hundert bis tausend Kilometer Unterschied ausmachen. Gemessen am Erdumfang mögen die Abweichungen gering sein - ich brauche aber eine brauchbare Lösung für Entfernungen unter 100km.

Trotzdem, vielen Dank für Ihre Bemühungen!

MfG

Bekannt aus:

 
 
 
„[...]mehr als Zehntausend Experten weltweit; 1500 davon in Deutschland. Acht Jahre nach dem Start ist das [...] Online-Unternehmen mit seinen 90 Mitarbeitern die größte Web-Seite für das Vermitteln von Experten von Anwälten über Ärzte bis hin zu Universitätsprofessoren.“
„Wer eine fachmänische Lösung für ein medizinisches, rechtliches oder technisches Problem sucht, kann das jetzt auch im Internet tun. Lebenshilfe auf die schnelle, unkomplizierte und vor allem erschwingliche Art bietet die Seite www.justanswer.de. Etwa 1500 Experten stehen per Mail für Fragen zu ca. 200 Fachgebieten rund um die Uhr zur Verfügung."
„Rat gewünscht? Rechtliche, medizinische oder allgemeine Fragen beantworten Experten unter www.justanswer.de."
„JustAnswer, die weltweit führende Online-Plattform für Expertenfragen und -antworten, bietet ab sofort noch mehr Sicherheit und Qualität für Verbraucher."
„Ob Vorbereitung, Notfall oder Reklamation nach dem Urlaub - JustAnswer bietet jederzeit schnelle, kompetente Antworten"
„Die Online-Plattform JustAnswer bringt Ratsuchende und Experten in über 200 Fachgebieten zusammen."
 
 
 

Was unsere Besucher über uns sagen:

 
 
 
  • Ich bedauere, dass ich nicht gleich bei Ihnen gelandet bin. Die Leerung des Cache hat das Problem gelöst. Danke Gerd Schönbuchner Grafrath
< Zurück | Weiter >
  • Ich bedauere, dass ich nicht gleich bei Ihnen gelandet bin. Die Leerung des Cache hat das Problem gelöst. Danke Gerd Schönbuchner Grafrath
  • Endlich ein Experte, der mir wirklich weiterhelfen konnte! DANKE! JustAnswer Kunde Taunusstein
  • Ihre Antwort hat mir sehr geholfen, die richtigen Entscheidungen zu treffen. Dass Sie mir darüber hinaus noch 2 Empfehlungen gegeben haben fand ich super. Vielen Dank! JustAnswer Kunde Freiburg
  • Die ausgearbeiteten Hilfen waren gut strukturiert, leicht verständlich und zu 100% hilfreich für mich. Vielen Dank Markus B. Karlsruhe
  • Sehr schnelle und kompetente Antwort, die für mich bares Geld bedeutet. Vielen Dank! S.Stober K.
  • Herzlichen Dank! Hab durch Ihre Antwort viel Geld gespart! Ben R. Deutschland
  • Sehr schnelle und kompetente Hilfestellung. Besonders für mich als Laien wurde alles sehr verständlich erklärt. Gerne wieder! Rosengl Bad Tölz
 
 
 

Lernen Sie unsere Experten kennen:

 
 
 
  • Tronic

    Tronic

    IT-Specialist

    Zufriedene Kunden:

    2269
    Elektroniker und EDV-Service
< Zurück | Weiter >
  • http://ww2.justanswer.com/uploads/PY/Pyroflash/2011-4-21_104934_tronic.64x64.jpg Avatar von Tronic

    Tronic

    IT-Specialist

    Zufriedene Kunden:

    2269
    Elektroniker und EDV-Service
  • http://ww2.justanswer.com/uploads/rufushoschi/2010-11-08_135947_bild.jpg Avatar von IT-Fachinformatiker

    IT-Fachinformatiker

    Systemadministrator

    Zufriedene Kunden:

    6338
    Software Entwicklung, Projekt Erfahrung, Windows-Netzwerke, Linux-Netzwerke, Windows/Linux-Server
  • http://ww2.justanswer.com/uploads/COMINAROSA/2010-02-03_172238_PASSBILD.JPG Avatar von COMIN IT-Service

    COMIN IT-Service

    Dipl.-Ing.

    Zufriedene Kunden:

    779
    Dipl.Ing (FH) ET, NT, IT
  • http://ww2.justanswer.com/uploads/RaubergerConcep/2010-03-02_102740_Portraet64.jpg Avatar von RaubergerConcept

    RaubergerConcept

    IT-Specialist

    Zufriedene Kunden:

    234
    Mehr als 10 Jahre Erfahrung in Softwareentwicklung und Netzwerktechnik
  • http://ww2.justanswer.com/uploads/LF/lfalkenburg/2015-2-8_01843_.64x64.jpg Avatar von Lutz Falkenburg

    Lutz Falkenburg

    IT-Specialist

    Zufriedene Kunden:

    96
    Seit über 20 Jahren beruflich im IT-/IUK-Bereich tätig. Egal ob EinzelPC der Netzwerk...
  • http://ww2.justanswer.com/uploads/BI/BigDaddyXD/2012-10-24_20126_WhySoSeriousJob.64x64.jpg Avatar von BigDaddyXD

    BigDaddyXD

    Informatiker

    Zufriedene Kunden:

    1588
    Microsoft Certified Professional, Microsoft Certified Desktop Support Technican,...
  • http://ww2.justanswer.com/uploads/PU/Pucky80/2011-5-14_54537_pucky80.64x64.jpg Avatar von Pucky80

    Pucky80

    IT-Systemkaufmann

    Zufriedene Kunden:

    1322
    MCITP (Microsoft Server 2008 Enterprise Administrator)
 
 
 

Ähnliche Fragen in der Kategorie Computer