Gruppe
Matrix
Problem
Gemäß den Vorgaben in den Zellen G2:G3 sollen die Summen aus der Tabelle, Spalte D ermittelt werden.
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