Berechnung von Entfenrungskilometern II @ Uwe
Entfenrungskilometern
Dir möcht ich erst noch mal gesondert danken, dass du dir die Zeit genommen hast dich mit meinem Problem auseinander zu setzen.
Hab irgendwie keine mail bekommen, dass du schon am 27 feb auf meinen Beitrag geantwortet hast. Habe erst heute wieder hier reingeschaut.(Beitrag: Script zur Berechnung von Entfernungskilometern II).
Daher ist er leider schon ins archiv gewandert und ich kann keine Antwort mehr drauf geben, daher hier noch mal der neue Thread.
Ich habe deine Anweisungen befolgt, der zu änderende Teil vom Code sieht nun folgendermaßen aus.
tempHTML = appIE.Document.body.InnerHtml
#If InStr(tempHTML, "ist unbekannt") > 0 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"
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
ZielAdress.Offset(0, 2) = Trim$(strHTML)
Wenn ich das Makro jetzt ausführen möchte, bekomme ich die Fehlermeldung. "Fehler beim kompilieren: Konstanter Ausdruck erforderlich". Dabei markeirt excel den von mir als fett gekennzeichneten Bereich im Code.
Irgendwo ist noch was unsauber, aber ich komm nicht drauf wo.
Wäre super wenn du/Ihr euch das noch mal anschauen könntet.
Vielen Dank im Voraus.
Tobi