Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Lohnberechnung mit Pausenberücksichtigung

Gruppe

Arbeitszeit

Problem

Eine Arbeitszeitberechnung auf Formelbasis unter Berücksichtigung von Arbeitszonen und Pausen.

Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   If Target.Name.Name = "BEGINN" Then
      If Target.Value >= Range("P1A").Value And Target.Value <= Range("P1E").Value Then
         Target.Value = Range("P1E").Value
      End If
      If Target.Value >= Range("P2A").Value And Target.Value <= Range("P2E").Value Then
         Target.Value = Range("P2E").Value
      End If
   ElseIf Target.Name.Name = "ENDE" Then
      If Target.Value >= Range("P1A").Value And Target.Value <= Range("P1E").Value Then
         Target.Value = Range("P1A").Value
      End If
      If Target.Value >= Range("P2A").Value And Target.Value <= Range("P2E").Value Then
         Target.Value = Range("P2A").Value
      End If
   End If
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

    

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