Entfernung zwischen zwei PLZ mit GoogleMaps berechnen!

[Haupi0581]

Hallo Schauan,


habe mir mal deine Excel-Datei "GoogleAbfrageAktuell.xlsm" runtergeladen und das funktionier echt super. Großes Dankeschön...
Nun zu meiner Frage wie kann ich die Ein- und Ausgabe Zellen so verschieben das die berchnung noch funktioniert???

MfG, Haupi0581...

[schauan]

Hallo Haupi,

im code findest Du so etwa 4 Stellen mit Cells(..., ...)
Die erste Zahl im Klammerausdruck gibt die Zeile an, die zweite Zahl die Spalte. In den Kommentaren über der codezeile steht, ob es sich z.B. um die Zellen zur Eingabe oder die Zellen zur Ausgabe handelt.

Bei ersterem steht was mit
... ermitteln ...
im Kommentar, bei zweitem was mit
... eintragen ...

[Haupi0581]

Hallo Haupi,

im code findest Du so etwa 4 Stellen mit Cells(..., ...)
Die erste Zahl im Klammerausdruck gibt die Zeile an, die zweite Zahl die Spalte. In den Kommentaren über der codezeile steht, ob es sich z.B. um die Zellen zur Eingabe oder die Zellen zur Ausgabe handelt.

Bei ersterem steht was mit
... ermitteln ...
im Kommentar, bei zweitem was mit
... eintragen ...

Danke für deine Hilfe hat fast alles geklapt, ein keines Problem habe ich da noch mit der Zieladresse:

Spalte "a" ist die PLZ und Spalte "b" der Ort+Strasse, Spalte "b" habe ich auf "s" versetzt(das funktioniert auch),
aber wenn ich jetzt Spalte"a" versetze funkioniert die Berechnung nicht mehr. Könntest du mir da nochmal helfen, das ich das auf Spalte "r" bekomme.

PHP-Code:

'Schleife ueber alle DestinationAddress anhand Eintraegen in Spalte A
      For lCnt = 21 To Cells(Rows.Count, 1).End(xlUp).Row
        'DestinationAddress ermitteln
        'Hinweise:
        'Keine deutschen "Sonderbuchstaben" verwendbar
        'PLZ nicht 4stellig moeglich!
        'Spalte A = PLZ, Spalte S = Ort
        strDAddr = Format(Cells(lCnt, 1), "0####") & "," & ReplaceGermans(Cells(lCnt, 19))
        'Abfrage oeffnen
        objXML.Open "POST", "http://maps.googleapis.com/maps/api/distancematrix/xml?origins=" & strOAddr & "&destinations=" & strDAddr & "&language=de-DE&sensor=false", False
        'Abfrageheader
        objXML.setRequestHeader "Content-Type", "content=text/html; charset=UTF-8"
        'Abfrage senden
        objXML.send
        'Abfrageergebnis (Text) aufnehmen
        xmlDoc.LoadXML objXML.responseText
        'Zeit auslesen /Value=Sekunden /Text = Minuten mit Angabe "Minuten"
        Set xmlNod = xmlDoc.SelectSingleNode("//row/element/duration/value")
        'Zeit in Stundenzelle eintragen, Rueckgabewert / 86400
        Cells(lCnt, iCnt2 + 1) = CDate(xmlNod.Text / 86400)
        'Entfernung auslesen /Value=Meter /Text = Kilometer mit Angabe "km"
        Set xmlNod = xmlDoc.SelectSingleNode("//row/element/distance/value")
        'Entfernung in km zelle eintragen, Rueckgabewert / 1000
        Cells(lCnt, iCnt2) = xmlNod.Text / 1000
        'Ende Schleife ueber alle DestinationAddress anhand Eintraegen in Spalte A
      Next 


MfG, Haupi0581...

[schauan]

Hallöchen,

Um Spalte A zu versetzen, musst Du 2 Stellen verändern, wo auch ...Spalte A ... im Kommentar drüber steht. Ich vermute, dass Du die For-Zeile nicht angepasst hast. Da steht
'Schleife ueber alle DestinationAddress anhand Eintraegen in Spalte A
For lCnt = 21 To Cells(Rows.Count, 1).End(xlUp).Row
Hier wäre das richtig:
'Schleife ueber alle DestinationAddress anhand Eintraegen in Spalte R
For lCnt = 21 To Cells(Rows.Count, 18).End(xlUp).Row

Die andere Stelle ist
'Spalte A = PLZ, Spalte S = Ort
strDAddr = Format(Cells(lCnt, 1), "0####") & "," & ReplaceGermans(Cells(lCnt, 19))

Hier kommt das hin - das hattest Du bestimmt so:
'Spalte R = PLZ, Spalte S = Ort
strDAddr = Format(Cells(lCnt, 18), "0####") & "," & ReplaceGermans(Cells(lCnt, 19))

[Haupi0581]

Danke jetzt läufts

[CaroExcel]

Hallo ihr Lieben,

erst einmal vielen lieben Dank für die super Datei, Andre! Das funktioniert richtig gut!
Allerdings bin ich schon lange auf der Suche nach einer Abfrage von Straße, PLZ, Ort zu Straße, PLZ, Ort. Kannst du mir das mit der Straße in der Zieladresse evtl. noch einbauen (ich hab leider gar keine Erfahrung) oder mir sagen, was ich ergänzen bzw. verändern muss?

Das wäre ein Traum!

[schauan]

Hallo Caro,

ist etwas spät heute - erst mal ein Gedanke, ohne das getestet zu haben. Kannst Du in Spalte S mal die Straße und Hausnummer dazu eingeben? Im Moment ist dort der Ort vorgesehen, eventuell geht dort ohne weitere Umprogrammierung auch Ort, Straße Nummer. Wenn ja, ist die Umprogrammierung bei anderer Eingabezelle sehr einfach, man bräuchte nur zum String noch die andere(n) Zelle(n) hinzufügen.

[CaroExcel]

Hallo Andre,

das klappt! Einfach direkt bei der Zieladresse in das Feld "Ort", wie du beschrieben hast, die Straße hinzufügen!
Super! Ganz großes Dankeschön!!!

[Tomfati]

Hallo Andre,

ich habe Deine Beispiel-Datei herunter geladen, weil sie genau meinen Anforderungen entspricht.(GoogleAfrageAktuell.xlms). Beim Test erhielt ich die gewünschten Ergebnisse. Jedoch nach ca. 3 Stunden wurden immer weniger Zellen befüllt, bis zum Moment, daß nur noch eine Fehlermeldung erscheint. ( Fehler 91 Objektvariable oder Witch-Blockvariable nicht festegelegt). Woran liegt das?

Danke Thomas

[schauan]

Hallo Thomas,

es könnte sein, dass Du zu viele Abfragen gestellt hast. Google blockt meines Wissens, wenn es der Meinung ist, dass da jemand kräftiger als der Ottonormalverbraucher am wirken ist. Für geschäftliche Nutzung muss man zum einen zahlen, zum anderen hat man dann wohl mehr Abfragemöglichkeiten. Mein Beispiel ist daher auch nur für den privaten Gebrauch.