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. ;)