Gruppe
DatumZeit
Problem
In einem dynamischen Monats-Arbeitsplan soll die Anzahl der Sonn- und Feiertagsstunden 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