Office: (Office 2010) Entfernung berechnen

Hallo, die Frage von Nobbi49 interessiert mich auch. Die lt. Google theoretisch berechnete Fahrzeit wäre auch für mich von großem Interesse. Ich werde zunächst aber auch erst ein wenig ausprobieren; falls es sich erledigt haben sollte, melde ich mich noch mal.

Danke für Eure Hilfe hier :-)

 

Hallo!
Auf vielfachen Wunsch ... *mrcool
Die entsprechende UDF lautet:
Code:

... und gibt eine Ganzzahl der Minuten der Fahrstrecke zurück.
Das Ganze wird dann noch ben.def. formatiert:

*	A	B	C	D	E	F	G	H	I	J
1	Start				Ziel				Output
2	Straße	Stadt oder PLZ	Land	Staat	Straße	Stadt oder PLZ	Land	Staat	Entfernung	Minuten
3	Hagemannshof 7	Gelsenkirchen	*	*	Hauptstr. 343	Herne	*	*	4,158 km	8 Min.

Zelle	Format	Wert
I3	0,000 "km"	4,158
J3	0" Min."	8

Zelle	Formel
I3	=Entfernung(A3;B3;C3;D3;E3;F3;G3;H3)
J3	=Dauer(A3;B3;C3;D3;E3;F3;G3;H3)

Gruß, Ralf

 

Oops! *boah
Irgendwo sind die Values verloren gegangen ...
(Scheinbar entfernt die Forensoftware das, was zwischen kleiner/größer steht, deshalb hier mal ausnahmsweise Code ohne Code-Tags)

Grmpf ... sch. Forensoftware ... *mad.gif*

(erstaunlicherweise funzt es mit PHP-Tags)

PHP:

         Public Function Dauer _
( _
Start_Strasse As String, Start_Stadt_PLZ As String, _
Start_Bundesland As String, Start_Staat As String, _
Ziel_Strasse As String, Ziel_Stadt_PLZ As String, _
Ziel_Bundesland As String, Ziel_Staat As String _
)

Dim surl    As String
Dim oXH     As Object
Dim bodytxt As String

surl = "http://maps.googleapis.com/maps/api/distancematrix/xml?origins=" & _
Replace(Start_Strasse, " ", "+") & "+" & Replace(Start_Stadt_PLZ, " ", "+") & "+" & _
Replace(Start_Bundesland, " ", "+") & "+" & Replace(Start_Staat, " ", "+") & _
"&destinations=" & _
Replace(Ziel_Strasse, " ", "+") & "+" & Replace(Ziel_Stadt_PLZ, " ", "+") & "+" & _
Replace(Ziel_Bundesland, " ", "+") & "+" & Replace(Ziel_Staat, " ", "+") & _
"&mode=driving&sensor=false&units=metric"

Set oXH = CreateObject("msxml2.xmlhttp")

With oXH
.Open "get", surl, False
.send
bodytxt = .responseText
End With

bodytxt = Right(bodytxt, Len(bodytxt) - InStr(1, bodytxt, "<value>") - 6)
Dauer = Round(Left(bodytxt, InStr(1, bodytxt, "</value>") - 1) / 60, 0)

Set oXH = Nothing

End Function


 

Here it is.

 

Hallo Ralf,

nur zur Info *Smilie
http://www.ms-office-forum.net/forum...9&postcount=22

ich hatte die API auch mal im Einsatz habe es aber aus dem Forum entfernen lassen, der rote Text auf der Developerseite war mir zu rot. ^^

 

Hi Chris!
Ich sehe dies positiv:
Vielleicht könnte man ja (gemeinsam?) versuchen, die Karte ins Sheet zu laden.

Gruß, Ralf

 

Hi!
Mit folgender Erweiterung dürfte dann auch BigBrother erstmal zufrieden sein:

PHP:

         Public Function Entfernung _
( _
Start_Strasse As String, Start_Stadt_PLZ As String, _
Start_Bundesland As String, Start_Staat As String, _
Ziel_Strasse As String, Ziel_Stadt_PLZ As String, _
Ziel_Bundesland As String, Ziel_Staat As String _
)

Dim surl                As String
Dim oXH                 As Object
Dim bodytxt             As String
Dim IEurl As String

surl = "http://maps.googleapis.com/maps/api/distancematrix/xml?origins=" & _
Replace(Start_Strasse, " ", "+") & "+" & Replace(Start_Stadt_PLZ, " ", "+") & "+" & _
Replace(Start_Bundesland, " ", "+") & "+" & Replace(Start_Staat, " ", "+") & _
"&destinations=" & _
Replace(Ziel_Strasse, " ", "+") & "+" & Replace(Ziel_Stadt_PLZ, " ", "+") & "+" & _
Replace(Ziel_Bundesland, " ", "+") & "+" & Replace(Ziel_Staat, " ", "+") & _
"&mode=driving&sensor=false&units=metric"
IEurl = "http://maps.google.de/maps?f=d&hl=de&saddr=" & _
Replace(Start_Strasse, " ", "+") & "+" & Replace(Start_Stadt_PLZ, " ", "+") & "+" & _
Replace(Start_Bundesland, " ", "+") & "+" & Replace(Start_Staat, " ", "+") & _
"&daddr=" & _
Replace(Ziel_Strasse, " ", "+") & "+" & Replace(Ziel_Stadt_PLZ, " ", "+") & "+" & _
Replace(Ziel_Bundesland, " ", "+") & "+" & Replace(Ziel_Staat, " ", "+")


Set oXH = CreateObject("msxml2.xmlhttp")

With oXH
.Open "get", surl, False
.send
bodytxt = .responseText
End With

bodytxt = Right(bodytxt, Len(bodytxt) - InStr(1, bodytxt, "<value>") - 5)
bodytxt = Right(bodytxt, Len(bodytxt) - InStr(1, bodytxt, "<value>") - 6)
Entfernung = Left(bodytxt, InStr(1, bodytxt, "</value>") - 1) / 1000

Set oXH = Nothing
Call IE(IEurl)
End Function


 

Hallo, vielen Dank für Eure Hilfe. Besten Dank :-)

 

Hi,
das wäre genau das wo nach ich suche. Allerdings kommt bei mir egal was ich eingebe immer #Wert. Sogar wenn ich bei Stadt Gelsenkirchen eingebe. Kann mir bitte jemand sagen, wie ich das ding zum Laufen kriege?
Danke

 

Hallo zusammen,
gestern Abend war die Freude noch groß, dass ich mir mit dem Makro einen Haufen Arbeit ersparen kann.
Seid gerade bekomme ich aber immer wieder den Fehler #Wert ausgegeben.

Habt ihr eine Idee was ich tun kann?

Danke im Voraus!

Viele Grüße,
Moritzz

 

HI,

http://www.ms-office-forum.net/forum...2&postcount=20

Die Anzahl der Abfragen ist begrenzt!

 

Hallo,
Danke für die schnelle Antwort - ich halte mal bis morgen die Füße still und probiere es dann noch einmal. *Smilie

Viele Grüße,
Moritzz

 

Hey,

ich habe mir das sehr coole Tool gerade erst heruntergeladen. Vielen Dank schon mal. Es scheint allerdings bei mir nur von Stadt zu Stadt zu funktionieren.

Zitat:

Für die Verwendung des Google Directions APIs gilt eine Suchanfragenbegrenzung von 2500 Routenanfragen pro Tag. Im Hinblick auf das Tageskontingent zählt jede Routensuche als einzelne Anfrage, wenn das Transportmittel KFZ, zu Fuß oder Fahrrad ist. Die Suche nach Routen mit öffentlichen Verkehrsmitteln zählt als vier Anfragen


Ist es denn möglich das VBA auf öffentliche Verkehrsmittel umzustellen? Wenn ja welcher Wert muss dafür geändert werden?

Viele Grüße

Felix

 

Hallo Ralph
Weisst Du wie ich die Entfernungs-Funktion auf einem MAC zu laufen kriege?
Vielen Dank für Deine Antwort
Daniel

 

Hallo leute,

ich muss den Threat nochmal hochholen.
Ich benötige die Entfernungs- und Zeitberechnung für meine Arbeit. Hier habe ich sie in meine Excel Datei übernommen und läuft auch super.
Da in meiner Exceldatei Personendaten der Beschäftigten enthalten sind, stellt sich mir die Frage hinsichtlich des Datenschutzes. Kann Google meine Datei durch den VBA Code irgednwie auslesen oder schätzt ihr ihr das aus Datenschutzsicht eher als unbedenklich ein?
Ich freue mich über eure Antworten. Viele grüße Fantom