HERBERS Excel-Forum - die Beispiele

Thema: Ermittlung von Sonn-/Feiertagsstunden

Home

Gruppe

DatumZeit

Problem

In einem dynamischen Monats-Arbeitsplan soll die Anzahl der Sonn- und Feiertagsstunden ermittelt werden.

Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.
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