Entfernung zwischen zwei PLZ mit GoogleMaps berechnen!
#31
Hallo zusammen,

das Google Excel Tool läuft super! Allerdings bräuchte ich das auch international! Also nicht nur für Deutschland sondern europaweit,das würde mir schon weiterhelfen!
Hoffe jemand hat eine Idee!

Vielen Dank
Top
#32
Hallo!

Passt das so?

Gruß
Wilfried


Angehängte Dateien
.xlsm   Entfernungen Google Maps.xlsm (Größe: 29,88 KB / Downloads: 1.443)
[-] Folgende(r) 4 Nutzer sagen Danke an Wilfried Höttl für diesen Beitrag:
  • DbSam, schauan, BigSix,
Top
#33
Du bist ein Held!!! Danke Heart
[-] Folgende(r) 2 Nutzer sagen Danke an niggnogg für diesen Beitrag:
  • Wilfried Höttl,
Top
#34
Hallo zusammen,

ich war auch auf der Suche nach dieser Funktion und bin u.a. auf diesen Thread gestoßen.

Ich habe Wilfrieds Beispieldatei mal etwas bereinigt und umgebaut.
Vielleicht hilft dieses Beispiel auch anderen Leuten weiter.


Gruß Carsten


Angehängte Dateien
.xlsm   Entfernungen Google Maps_V2.xlsm (Größe: 51,33 KB / Downloads: 1.899)
[-] Folgende(r) 2 Nutzer sagen Danke an DbSam für diesen Beitrag:
  • schauan, BigSix
Top
#35
Hallöchen zusammen,

macht richtig Spaß, wie sich der Thread entwickelt und unterschiedliche Aspekte einfließen. Daher mal an dieser Stelle und in dieser Form ein Dankeschön an alle Beteiligten Smile
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Top
#36
Hi Carsten und alle anderen,

(30.07.2015, 15:43)DbSam schrieb: Ich habe Wilfrieds Beispieldatei mal etwas bereinigt und umgebaut.
Vielleicht hilft dieses Beispiel auch anderen Leuten weiter.

ich habe nun endlich auch das Beispiel mal ausprobiert und das Teil ist super!
Bin voll begeistert!
[-] Folgende(r) 1 Nutzer sagt Danke an Rabe für diesen Beitrag:
  • DbSam
Top
#37
Hi Carsten,

ich hoffe, du schaust hier wieder mal rein und liest dies.


Zitat:Ich habe Wilfrieds Beispieldatei mal etwas bereinigt und umgebaut.

Vielleicht hilft dieses Beispiel auch anderen Leuten weiter.

Ich kann Ralfs Begeisterung

Zitat:Ralf schrieb:
ich habe nun endlich auch das Beispiel mal ausprobiert und das Teil ist super!

Bin voll begeistert!
nur teilen. Deine Überarbeitung ist Klasse.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
[-] Folgende(r) 1 Nutzer sagt Danke an WillWissen für diesen Beitrag:
  • DbSam
Top
#38
Hallo, auch ich finde das Tool super!!! Als Einziges, was ich mir wüschen würde wäre eine direkte Anzeige der Route in dem XL-Fenster... mit einem Standort habe ich das irgendwo (ich glaube Thomas Ramel hatte das mal vorgestellt)...

:18:
Gruß Jörg
stolzes Mitglied im ----Excel-Verein
Freund einer excellenten Power Query-Abfrage
Top
#39
Hallo zusammen,


Danke für Euer Lob, es ist angekommen. :59:
Aber eigentlich habe ich nur zusammengefasst und strukturiert, um die Leserlichkeit/Wiederverwendbarkeit zu erhöhen.

Das ist ja erst einmal eine Vorlage.
Diese könnte man nun noch erweitern:
  • Integrierung einer Funktion für mehrspaltige Adresslisten
  • Integrierung der Abfrage nach einem einzelnen Standort
  • Integrierung einer Funktion zum Abruf der Daten für die ganze Liste
  • die Geokodierung auslesen und deren variable Ausgabe
  • Ausgabe der Details der Route als Liste (Loop über die Steps, leider sind Autobahnen nicht so einfach erkennbar.)
  • Ein statisches Bild der Route, z.B. auch für die Liste
  • whatever
Ich werde die ersten 4 Punkte mal noch nachreichen, da ich diese selbst benötige.
Mit dem (statischem) Bild, schau ich mal nach. Hier müsste man sich überlegen, wie/wo man diese bei Listen abspeichern und abrufen kann...



Weitere Ideen willkommen... :)


Gruß Carsten

PS:

Bitte bei Tabelle1 ersetzen:

In der Sub "Worksheet_BeforeDoubleClick" die Zeile:
Code:
If Intersect(Range("A2:E10000"), Target) Is Nothing Then Exit Sub
'ersetzen durch:
If Intersect(Range("A2:E" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row), Target) Is Nothing Then Exit Sub


Und in der Sub "Sub Worksheet_Change" die Zeile:
Code:
If Intersect(Range("A2:B10000"), Target) Is Nothing Then Exit Sub
ebenfalls ersetzen durch:
If Intersect(Range("A2:B" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row), Target) Is Nothing Then Exit Sub


Und wer möchte kann dann gleich noch den Rechtschreibfehler korrigieren:
'Hinweis:
'Beim Kopieren in ein neues Projekt muss ein Verweis auf "MicrosoftXML, V#.##" gesetzt werden.  ;)
Top
#40
Hallo Carsten,
Das geht jetzt vielleicht in Richtung Route oder Geocaching. Hier gab es dieser Tage eine Frage nach der Anzeige mehrerer Points in Google Maps. Da gab es früher ein paar Lösungswege, die Google seit Anfang des Jahres gesperrt hat.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste