Kilometer aus Google Maps auslesen

[Tobli]

Hallo zusammen,

ich bin dabei mir einen Code zu basteln. Hier wäre es toll, wenn es möglich ist, die Entfernung zweier Adressen in Zeile A1 einzufügen. Ich scheiter jedoch daran, dass ich nicht weiß, wie der wert "Entfernung" in Zelle A1 übergeben wird.

soweit bin ich bisher:

Sub x()
    Dim IEApp As Object, i As Long
    
    Set IEApp = CreateObject("InternetExplorer.Application")
    IEApp.Visible = True
    
    With Sheets("Tabelle1")
        For i = 1 To 1
        MsgBox i
        
            .Cells(i, 3).Value = Entfernungtest(IEApp, .Cells(i, 1).Value, .Cells(i, 2).Value)
        Next i
    End with
    'IEApp.Quit
    'Set IEApp = Nothing
End Sub

Function Entfernungtest(IEApp As Object, ByVal Von As String, ByVal bis As String) As String
    Dim arText As Variant
    Dim i As Long
    str_VON = "Neuss"
    str_NACH = "Kaarst"
    IEApp.Navigate "http://maps.google.com/maps?saddr=" & str_VON & "&daddr=" & str_NACH & "&hl=de"  
End Function

[M.Wichmann]

Hallo, hast du hier mal die Suchfunktion genutzt?

Diese bzw ganz ähnliches Thema hab ich vor kurzem erst  gelesen.

[Tobli]

Hi, ja die habe ich genutzt. So war es mir auch möglich den og Code zu schreiben, allerdings scheitere ich jetzt daran, den Wert auszulesen und zu übergeben. Ich hoffe, dass mir hierbei jemand helfen kann

[DbSam]

Hallo Tobli,

hast Du schon die Suche benutzt?
Da könnte man dieses und jenes finden.  ;)


Gruß Carsten

[Tobli]

ja dort habe ich auch den o.g. Code gefunden

[Tobli]

ich habe mir den Quellcode mal angesehen, hier werde ich leider nicht schlau raus und verzweifel.

[DbSam]

Hallo,

dann exportiere die Module und Klassen und importiere diese in Dein Workbook.
Vergesse nicht den Verweis zu setzen, siehe auch dazu Hinweis in clsGMaps.

Im Beispiel siehst Du im Code hinter der Tabelle1 wie das Konstrukt genutzt werden kann.
Du musst eigentlich nichts neu erfinden.

Oder Du nimmst das Beispiel und baust dort Deine Dinge ein. Geht auch.
In der Funktion 'MapCells' hinter Tabelle1 findest Du die Zuweisung Deiner Zellen.


Gruß Carsten

PS:
Wer private Nachrichten verschickt, der sollte auch in seinen Einstellungen die PN aktivieren.
Die Antwort findest Du schon hier in meinem Post

[Lisa110291]

Hilfe!!!

Ich habe in der Schule die Grundlagen der VBA gelernt und kam damals auch ziemlich gut klar damit.  seitdem allerdings nie wieder damit gearbeitet, dementsprechend nur noch verschwommene Erinnerungen im Kopf... :22:
Jetzt habe ich eine Aufgabe von meinem Chef bekommen bei der ich die Entfernung in km von 5 verschiedenen Orten für ca 100 Personen ermitteln soll. 
Ich habe mich hier durchgewuselt und versucht eine Lösung zu finden. Mit meinem verstaubten Grundkenntnissen komme ich da leider nicht weiter...

In Zeile Q3 steht die Anschrift der Person - in den Zeilen R2 - V2 stehen die Adressen für
Die die Entfernung ermittelt werden müssen. Alle Adressen mit Postleitzahl Ort, Straße+ Hausnummer. 
Kann mir jemand (für wirkliche Anfänger) erklären, was ich jetzt tun muss, um die
Kilometer über Google ausrechnen zu lassen und nicht 500 Entfernungen einzeln ermitteln muss...?

Danke! 

[schauan]

Hallo Lisa,
Hast Du nur diesen Thread durchgewuselt oder auch mal den langen der ein paar Antworten weiter oben verlinkt ist?

[Wilfried Höttl]

Hallo Lisa!

Schau mal hier.

Gruß
Wilfried