15.04.2017, 16:18 (Dieser Beitrag wurde zuletzt bearbeitet: 15.04.2017, 16:18 von 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.
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.)
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.
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.
05.05.2017, 09:19 (Dieser Beitrag wurde zuletzt bearbeitet: 05.05.2017, 09:19 von 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))
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.
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 ...
![[-]](https://www.clever-excel-forum.de/images/collapse.png)
