Entfernung zwischen zwei PLZ mit GoogleMaps berechnen!

[mrthiemann]

ok, das mit dem Verweiß habe ich wohl gefunden. - danke Google =)

im Editor unter Extras, Verweise die MSXML6.DLL anhaken und mit OK bestätigen.

Richtig ??


So, die bisherige Fehlermeldung ist behoben.
Jetzt passiert aber folgendes:

Fehler beim Kompilieren:

Sub oder Function nicht definiert

Code:

Er:
   MsgBox CreateErrorMsgText(Err.Number, Err.Description), vbCritical, "Sub: Worksheet_Change in Tabelle1"
   Resume Ex
   'For debug:
   Resume

"CreateErrorMsgText" wird Gelb hinterlegt.


Schöne Grüße
Karsten

[DbSam]

Hallo Karsten,

ebenso in der V3:
Wenn Du das Modul und die Klassen in ein anderes Projekt kopierst, dann muss der Verweis auf MS XML neu gesetzt werden.
(Kopieren geht problemlos über Rechtsklick 'Datei exportieren' und im neuen Projekt 'Datei importieren'.)

In der VBA-Ansicht unter 'Extras' auf 'Verweise' klicken und dort die höchste bei Dir vorhandene Version von 'Microsoft XML vx.x' auswählen.
Vermutlich musst Du ein Weilchen scrollen ...
Beispiel:
   

Dann sollte es auch im neuen Projekt funktionieren.
Bei Problemen musst Du Dich halt nochmals melden.  :)



Viel Erfolg und frohe Ostern,
Gruß Carsten


Edit:
Da haben wir uns überschnitten ...   :)

Die neue Fehlermeldung bei Dir:
Du musst auch das Modul 'mdlCreateErrorMessage' in Dein neues Projekt kopieren, darin ist diese Funktion.


PS:
Bin erstmal für zwei, drei Stunden offline, kann also erst später antworten.

[DbSam]

Hallo zusammen,

auf vielfachen Wunsch habe ich mal schnell die Öffentlichen, den Fußgänger und das Tretmobil hinzugefügt ...
Nicht sehr schön, aber selten.  :)

  Entfernungen_GoogleMaps_V4_Mit_Tretmobil.xlsm (Größe: 58,1 KB / Downloads: 268)

Hinweise:
Die Entfernungen werden nur berechnet, wenn man Daten in die Spalten A und B einfügt oder ändert und in einer Zeile beide Felder gefüllt sind.
Bei Änderung der Beförderungsmethode wird nicht automatisch neu berechnet. (Auslösung bei vorhandenen Daten: Zellen in Spalte A oder B markieren, dann F2 und Enter drücken)
Diese Bremse ist absichtlich eingebaut, um das täglich zur Verfügung stehende Kontingent zu schonen. (Wurde weiter vorn im Thread schon aufgeführt.)



Gruß Carsten

[kidchino]

Hey zusammen,


geiler Thread. Das hat echt mal Spaß gemacht zu lesen und auf Seite 15 hab ich auch das gefunden, was ich gesucht habe. Die Luftlinienentfernung. Habs noch nicht getestet aber auf jeden Fall schon mal allen hier Danke.
Coole Geschichte!

Eine Frage hab ich doch mal. Hat hier jemand es schon mal über die private Nutzung hinaus genutzt und kann was zum Preis von Google sagen bzw. hat hier Erfahrungswerte.
Ich wollte für ein Foschungsprojekt der Uni einmaligig mal 200.000 Start Ziel Kombis prüfen.

Viele Grüße
Alex

[DbSam]

Hallo zusammen,

die Geokodierung für die Adresse einer Zelle wurde in einem neuen Sheet hinzugefügt.
Die Entfernungsermittlung wurde um die Geokoordinaten für Start- und Zielort erweitert.

  Geokodierung_Entfernungen_GoogleMaps_V5_Mit_Tretmobil.xlsm (Größe: 74,07 KB / Downloads: 125)


Gruß Carsten

[Rabe]

Hi Carsten,

die Fahrzeit ist immer gleich, egal, was in J1 ausgewählt wird.

Ich glaube, da muß das im Makro "Private Function MapCells" stehen:
   o.DrivingMode = GetDrivingModeAsEnum(ActiveSheet.Cells(1, 10))


In den Tabellenzeilen 7 - 9 findet Google keine Route mit dem Fahrrad (in 8 keine "Öffentlich").

[DbSam]

Hallo Rabe,

ja, Du hast recht.
Danke, denn das ist mir beim Test leider nicht aufgefallen
Nachdem ich die vier Spalten für die Koordinaten eingefügt hatte, habe ich vergessen die Zuweisung zu korrigieren.


Wie Rabe eben schon bemerkt hat:
Bitte in der Sub 'MapCells' hinter der Tabelle 'Entfernungen' die Zuweisung anpassen.
Zu erkennen ist auch, dass bei fehlender/falscher Zuweisung als Standard immer das Auto ('driving') gewählt wird. Deshalb die identischen Daten ...

Code:

   'Hier das Transportmittel wählen
   'Das ist optional.
   'Wenn diese Zuweisung weggelassen wird, dann wird 'Auto' als Standard gesetzt.
   
   'direkt:
   o.DrivingMode = Fahrrad
   'oder auch:
   
   'mein Fehler bei der Spalte:
   'o.DrivingMode = GetDrivingModeAsEnum(ActiveSheet.Cells(1, 6))
   
   'die letzte Zeile bitte so anpassen
   o.DrivingMode = GetDrivingModeAsEnum(ActiveSheet.Cells(1, 10))

Anbei die korrigierte Datei:

  Geokodierung_Entfernungen_GoogleMaps_V5.1_Mit_Tretmobil.xlsm (Größe: 74,16 KB / Downloads: 170)



Warum er keine Daten für das Fahrrad findet?
Ich denke das liegt an den Tunneln. Ich teste mal direkt in Google ...


Danke,
Gruß Carsten

Edit:
Ja, Google kennt keine Route für das Fahrrad:
   

Es, ist also kein Fehler in meiner Suche. Uff
(In der Messagebox gebe ich deshalb auch den Status der Suche aus. Hier: 'Zero_Results')

[Rabe]

Hi,

Warum er keine Daten für das Fahrrad findet?
Ich denke das liegt an den Tunneln. Ich teste mal direkt in Google ...

aber da könnten doch auch die Tunnel umfahren werden.

"Öffentlich" geht auch bei Salzburg - Plattensee nicht.

Aber das sind Fehler von Google.

[Mexxim]

Hallo,

Ich bin bei meiner Recherche auch auf diesen Beitrag gestoßen und haben Andrés Datei etwas umgeändert.
Hiermit ist es nun möglich eine Matrix zu erstellen, die momentan entweder angaben in Meter oder in Minuten ausgibt. 

Zusätzlich habe ich den Code zu modifiziert, dass nur die "untere Hälfte" der Matrix berechnet wird. Das führt zu dem einfachen Vorteil,
dass man nur die halbe Tabelle füllt und dementsprechend weniger Anfragen an Google senden muss. Nachteilig ist daran nur, dass man 
eine symmetrische Matrix bekommt. Das ist zwar nicht immer Praxisnah aber zumindest für meine Anwendung zu gebrauchen.

Viel Spaß beim Weitertüfteln  :35:

[DbSam]

Hallo return,

*hust*

Naja, wie wäre es einfacherweise damit?:

Code:

       Cells(lCnt, iCnt2) = xmlNod.Text
       Cells(iCnt2, lCnt) = xmlNod.Text
       Cells(lCnt, iCnt2).NumberFormat = "0"
       Cells(iCnt2, lCnt).NumberFormat = "0"

Und wenn man die gewünschte Suche an die Subs übergeben würde, dann würde auch eine Sub ausreichend sein, wenn man eine andere Node auswählt.
Eine Funktion 'ReplaceGermans' wäre übrigens völlig ausreichend.
Und ...


Ist verständlicher und einfacher in der Pflege.


Gruß Carsten