Gruppe
DatumZeit
Problem
Einfache Lohnberechnung unter Berücksichtigung von Start- und Endezeit sowie dem Stundensatz.
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