#WERT-Fehler in Enfternungstool

Option Explicit
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Type DIST_STRUCT
 Start As String 'Mehrere durch "/" getrennt eingeben
 Ziel  As String
 LDist As String
 FDist As String
End Type
Sub GetDistance(tDist As DIST_STRUCT)
 Dim oNode As Object
 With CreateObject("MicrosoftEdge.Application")
.navigate "http://www.luftlinie.org" 'Zur Url surfen
  While Not .readyState = 4: DoEvents: Wend 'Warten bis Seite geladen ist
  With .document
   Set oNode = .getElementById("start")
   If Not oNode Is Nothing Then
    oNode.Value = tDist.Start
    Set oNode = .getElementById("end")
    On Error Resume Next
    If Not oNode Is Nothing Then
      oNode.Value = tDist.Ziel
      Set oNode = .getElementById("calcDistance")
      If Not oNode Is Nothing Then oNode.Click
      Do
        Sleep 100
        Set oNode = Nothing
        Set oNode = .getElementById("strck")
        If Not oNode Is Nothing Then
          If Not oNode.outerText Like "*--*" Then Exit Do
        End If
        DoEvents
      Loop
      tDist.LDist = .getElementsByClassName("value km")(0).outerText
      tDist.FDist = .getElementById("strck").outerText
      tDist.Start = tDist.Start & " " & .getElementsByClassName("regions")(0).outerText
      tDist.Ziel = tDist.Ziel & " " & .getElementsByClassName("regions")(2).outerText
    End If      'End
   End If      'Start
  End With
  .Quit        'IE schließen
 End With
End Sub
Function EntfernungErmitteln(a, b)
Dim tDist As DIST_STRUCT
With tDist
  .Start = a: .Ziel = b
  GetDistance tDist
  EntfernungErmitteln = Replace(.Start, " ", "_") & " " & Replace(.Ziel, " ", "_") & " " & .LDist & " " & .FDist
End With
End Function
C1: =MTRANS(XMLFILTERN(WECHSELN(""&WECHSELN(EntfernungErmitteln(A1;B1);" km";)&"";" ";"");"//b"))
Will man nur letztere beide Zahlen haben, dann:
C1: =INDEX(MTRANS(XMLFILTERN(WECHSELN(""&WECHSELN(EntfernungErmitteln(A1;B1);" km";)&"";" ";"");"//b"));{3.4})

https://www.herber.de/bbs/user/157444.xlsm