Gruppe
UDF
Problem
Wie kann ich die Entfernung von 2 Orten über eine benutzerdefinierte Funktion ermitteln, wenn sich in einem zweiten Tabellenblatt eine Entfernungstabelle befindet.
StandardModule: basMain
Function Entfernung( _
sWks As String, _
sStart As String, _
sZiel As String) As Integer
Dim wks As Worksheet
Dim iRow As Integer
Set wks = Worksheets(sWks)
iRow = 1
Do Until IsEmpty(wks.Cells(iRow, 1))
If wks.Cells(iRow, 1).Value = sStart And _
wks.Cells(iRow, 2).Value = sZiel Then
Entfernung = wks.Cells(iRow, 3).Value
End If
iRow = iRow + 1
Loop
End Function