5. Kommentiere die nachfolgenden Zeilen bis einschließlich der Zeile mit der Zuweisung "Kein Ort" aus.
-------------------------------------------
Dies betrifft also die Zeilen:
' If InStr(tempHTML, "ist unbekannt") > 0 Then ' Or InStr(tempHTML, "Meinten Sie") > 0 Then
' ZielAdress.Offset(0, 2) = "unbekannt"
' GoTo NächstePLZ
' End If
' If Range("B1") = "" Then
' strHTML = tempHTML
' Debug.Print tempHTML
' If IsNumeric(strStart) Then
' strHTML = Right$(strHTML, Len(strHTML) - InStr(strHTML, "sa dir=ltr>" & strStart) - _
16)
' Else
' strHTML = Right$(strHTML, Len(strHTML) - InStr(strHTML, "sa dir=ltr>" & strStart & "") - 1)
' If InStr(strHTML, ">") > 0 Or InStr(strHTML, " 0 Then strHTML = ""
' Range("C2") = Trim$(strHTML)
' End If
' strHTML = tempHTML
' strHTML = Right$(strHTML, Len(strHTML) - InStr(strHTML, "Fahrt:") - 4)
' strHTML = Left$(strHTML, InStr(strHTML, " "))
' strHTML = Trim$(Replace(strHTML, " ", " "))
' ZielAdress.Offset(0, 1) = strHTML
' strHTML = tempHTML
' If IsNumeric(ZielAdress) Then
' strHTML = Right$(strHTML, Len(strHTML) - InStr(strHTML, "sa dir=ltr>" & ZielAdress) - 16) _
' Else
' strHTML = Right$(strHTML, Len(strHTML) - InStr(strHTML, "sa dir=ltr>" & ZielAdress & "") - 1)
' If InStr(strHTML, ">") > 0 Or InStr(strHTML, " 0 Then strHTML = "kein Ort"
-------------------------------------
3. Über die Zeile
ZielAdress.Offset(0, 2) = Trim$(strHTML)
fügst Du bitte die folgenden Zeilen ein:
If InStr(tempHTML, "ist unbekannt") > 0 Then
ZielAdress.Offset(0, 2) = "unbekannt"
GoTo NächstePLZ
End If
If Range("B1") = "" Then
strHTML = tempHTML
End If
Dim p1 As Long
p1 = InStr(strHTML, "],distance:")
If p1 > 0 Then
strHTML = Mid(strHTML, p1 + 12, InStr(p1, strHTML, "km") + 2 - (p1 + 12))
Else
strHTML = "kein Ort"
End If
Soweit ich in Kürze den HTML-Quelltext überschauen konnte, steht die Gesuchhte Entfernung hinter dem Schlüssewort "distance:". Hier wird nur die erste Routenlänge ausgegeben.
Ob es weitere Interpretationsmöglichkeiten des HTML-Quelltext gibt, insbesondere in hinblick auf die doppelte Abfrage im Ursprungsprogramm, kann ich nicht sagen.
Ich hoffe das Ergebnis entspricht Deinen erwartungen, Tobi.
Gruß,
Uwe