Hallo Leute,
Ich weiß das Thema wurde bereits in anderen Beiträgen aufgeworfen, außer die wichtigsten Formeln kenne ich in excel sogut wie gar nichts. Ich habe ein Excel File angefügt wo ich die km geren automatisch ausgerechnet haben möchte um mir einfach arbeit zu ersparen. Kann mir einer helfen?
[
attachment=23286]
Danke
MfG
Hi,
es fehlt noch deine angekündigte Datei.
Hast du eventuell vergessen, den Button "Attachment hinzufügen" anzuklicken?
Ja habe ich schon und habe auch die files runtergeladen aber kommen immer unterschiedliche Fehler. Wie gesagt bin in Excel nicht der beste, deshalb hier die Frage ob mir jemand mein File dafür anpassen kann.
Danke
Hallöchen,
unterschiedliche Fehler können z.B. kommen, wenn Du keinen API-Key von Google hast. Oder hast Du einen?
Schaue Dir dazu mal den Beitrag an und wenn Du einen Key hast (aber nicht hier posten
) schauen wir mal weiter
https://www.clever-excel-forum.de/thread...google+api
Hallo, :19:
mit Bing-Maps würde es so gehen (
habe es gerade an deiner Beispieldatei getestet): :21:
Code:
Option Explicit
Public Sub Main()
Dim lngRow As Long
With Tabelle1
For lngRow = 2 To IIf(Len(.Cells(.Rows.Count, 1)), .Rows.Count, .Cells(.Rows.Count, 1).End(xlUp).Row)
.Cells(lngRow, 3).Value = fncEntf(WorksheetFunction.EncodeURL(.Cells(lngRow, 1).Text), _
WorksheetFunction.EncodeURL(.Cells(lngRow, 2).Text), _
"BING MAPS KEY hier eintragen!!!!!!!!!")
Next lngRow
End With
End Sub
Function fncEntf(ByVal strFrom As String, ByVal strTo As String, ByVal strBingApi As String) As String
Dim objXML As Object
Set objXML = CreateObject("MSXML2.XMLHTTP.3.0")
With objXML
.Open "get", "https://dev.virtualearth.net/REST/V1/Routes/Driving?o=xml&wp.0=" & _
strFrom & "&wp.1=" & strTo & "&avoid=minimizeTolls&key=" & strBingApi, "false"
.send
If .readyState = 4 Then
fncEntf = .responseXML.SelectNodes("//TravelDistance").Item(0).Text
End If
End With
Set objXML = Nothing
End Function
Dazu benötigst du - wie auch bei Google - einen entsprechenden Key. Den kannst/musst du beantragen. Über Lizenzmodelle musst du dich selber erkundigen. Es gibt kostenfreie und kostenpflichtige - je nachdem für was du es nutzen möchtest. Ich habe einen kostenfreien Basic-Key.
Hey jo so einen Key habe ich, und nun? Kenne mich weder mit VBW noch mit anderen codes aus. Kann einer den code nicht in mein File einfügen und mir dann kurz erklären wie ich den key hinzufügen kann?
Danke