Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Entfernung mit Google Maps berechnen

Forumthread: Entfernung mit Google Maps berechnen

Entfernung mit Google Maps berechnen
17.03.2015 16:38:05
Doliwa
Hi zusammen,
ich kämpfe schon seit einer Woche an einer Aufgabe.
Startadresse: B1
Zieladresse: B2
Distanz soll in Zelle B3 eingegeben werden.
Wie muß das VBA-Programm aussehen, damit die Zellenwerte in Maps übertragen werden, ich dann in Maps die Route sehen kann und die Kilometer der gewählten Route automatisch in meine Excel-Tabelle (Zelle B3) übertragen werden?

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Entfernung mit Google Maps berechnen


Schritt-für-Schritt-Anleitung

Um die Entfernung mit Google Maps in Excel zu berechnen, benötigst du ein einfaches VBA-Skript. Befolge diese Schritte:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden VBA-Code in das Modul ein:

    Function GetDistance(startLocation As String, endLocation As String) As Double
       Dim objHTTP As Object
       Dim strResponse As String
       Dim json As Object
       Dim distance As Double
    
       Set objHTTP = CreateObject("MSXML2.XMLHTTP")
       objHTTP.Open "GET", "https://maps.googleapis.com/maps/api/distancematrix/json?origins=" & _
       startLocation & "&destinations=" & endLocation & "&key=YOUR_API_KEY", False
       objHTTP.send
    
       strResponse = objHTTP.responseText
    
       Set json = JsonConverter.ParseJson(strResponse)
       distance = json("rows")(1)("elements")(1)("distance")("value") / 1000 ' in km
    
       GetDistance = distance
    End Function
  4. Ersetze YOUR_API_KEY mit deinem Google Maps API-Schlüssel.

  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Gebe in Zelle B3 die folgende Formel ein, um die Entfernung zu berechnen:

    =GetDistance(B1, B2)

Nun kannst du die Entfernung berechnen und die Werte in Excel verwenden.


Häufige Fehler und Lösungen

  • Fehler: API-Schlüssel ungültig oder nicht aktiv.

    • Stelle sicher, dass dein Google Maps API-Schlüssel aktiv ist und die Berechtigungen für die Distanzmatrix-API gesetzt sind.
  • Fehler: JSON-Parser nicht vorhanden.

    • Du benötigst einen JSON-Parser für VBA. Du kannst den "JsonConverter" von GitHub verwenden, um dies zu beheben.

Alternative Methoden

Falls du keinen VBA-Code verwenden möchtest, kannst du auch die Entfernung direkt in Google Maps berechnen und das Ergebnis manuell in Excel übertragen. Eine weitere Möglichkeit ist die Verwendung von Online-Tools, die Entfernungen berechnen, und die Ergebnisse in Excel zu importieren.


Praktische Beispiele

  • Beispiel 1: Berechnung der Entfernung von Berlin nach München.

    • In Zelle B1: Berlin
    • In Zelle B2: München
    • In Zelle B3 wird automatisch die Entfernung in Kilometern angezeigt.
  • Beispiel 2: Berechnung der Entfernung zwischen zwei spezifischen Adressen.

    • In Zelle B1: Marktplatz 1, 12345 Stadt
    • In Zelle B2: Hauptstraße 2, 54321 Stadt
    • Zelle B3 zeigt die Distanz in km an.

Tipps für Profis

  • Nutze die Google Maps API effizient, indem du verschiedene Parameter wie Verkehr oder bevorzugte Routen hinzufügst.
  • Achte darauf, die API-Nutzungsgrenzen zu beachten, um unerwünschte Kosten zu vermeiden.
  • Experimentiere mit den Rückgabewerten der API, um zusätzliche Informationen wie die geschätzte Fahrzeit zu erhalten.

FAQ: Häufige Fragen

1. Wie bekomme ich einen Google Maps API-Schlüssel?
Du kannst einen API-Schlüssel erstellen, indem du dich bei Google Cloud anmeldest und ein neues Projekt erstellst. Aktiviere die Distanzmatrix-API und beantrage einen Schlüssel.

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der VBA-Code sollte in den meisten Versionen von Excel funktionieren, solange VBA unterstützt wird.

3. Was tun, wenn die Entfernung nicht korrekt berechnet wird?
Überprüfe die eingegebenen Adressen und stelle sicher, dass sie korrekt und vollständig sind. Möglicherweise gibt es auch Einschränkungen bei der API.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige