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
03.05.2017, 11:44 (Dieser Beitrag wurde zuletzt bearbeitet: 03.05.2017, 11:45 von 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
03.05.2017, 12:11 (Dieser Beitrag wurde zuletzt bearbeitet: 03.05.2017, 12:11 von 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
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...?
