Thema Datum  Von Nutzer Rating
Antwort
15.06.2018 10:46:43 Lena
NotSolved
Blau Entfernung berechnen
 15.06.2018 11:03:49 Gast78252
NotSolved

Ansicht des Beitrags:
Von:
Gast78252		 Datum:
15.06.2018 11:03:49		 Views:
491		 Rating:
     
Antwort:
  Ja
Thema:
Entfernung berechnen		 
Public Sub Entfernung()



Dim objXML As Object
Dim xmlDoc As Object
Dim xmlNod As Object

Dim strOAddr$, strDAddr

On Error GoTo errorhandler

Set objXML = CreateObject("Msxml2.XMLHTTP")
Set xmlDoc = CreateObject("MSXML2.DOMDocument")

If Not objXML Is Nothing Then

  strOAddr = Cells(3, 1)
  strDAddr = Cells(5, 1)
  objXML.Open "POST", "http://maps.googleapis.com/maps/api/distancematrix/xml?origins=" & strOAddr & "&destinations=" & strDAddr & "&language=de-DE", False
  objXML.setRequestHeader "Content-Type", "content=text/html; charset=UTF-8"
  objXML.send
  xmlDoc.LoadXML objXML.responseText
      Set xmlNod = xmlDoc.SelectSingleNode("//row/element/duration/value")
      Cells(5, 4) = CDate(xmlNod.Text / 86400)
      Set xmlNod = xmlDoc.SelectSingleNode("//row/element/distance/value")
      Cells(5, 3) = xmlNod.Text / 1000

End If
errorhandler:
If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
Set xmlNod = Nothing
Set xmlDoc = Nothing
Set objXML = Nothing


End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
15.06.2018 10:46:43 Lena
NotSolved
Blau Entfernung berechnen
 15.06.2018 11:03:49 Gast78252
NotSolved