Meine jetzige Programmierung funktioniert nicht wirklich.
Sub Maps()
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate "http://maps.google.com/maps?saddr=" & Sheets("Berechnung").Range("C3") & "& _
daddr=" & Sheets("Berechnung").Range("M13") & "&hl=de"
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document
Set IEDoc = IEApp.Document
strTeile = Split(IEDoc.Body.innerText, vbCrLf)
'Debug.Print IEDoc.Body.innerText
End Sub