VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Lohnberechnung nach Anfangs- und Ende-Zeit

Gruppe

DatumZeit

Bereich

Arbeitszeit

Thema

Lohnberechnung nach Anfangs- und Ende-Zeit

Problem

Einfache Lohnberechnung unter Berücksichtigung von Start- und Endezeit sowie dem Stundensatz.

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