VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Ermittlung von Sonn-/Feiertagsstunden

Gruppe

DatumZeit

Bereich

Arbeitszeit

Thema

Ermittlung von Sonn-/Feiertagsstunden

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

    


Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Arbeitszeit