VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Lohnberechnung mit Zuschlagsätzen

Gruppe

Funktion

Bereich

DatumUndZeit

Thema

Lohnberechnung mit Zuschlagsätzen

Problem

Wie baue ich eine Tabelle auf, die eine automatische Lohnberechnung mit Berücksichtigung von Zuschlagsätzen vornimmt?

Lösung

Nur anhand einer Beipspielarbeitsmappe darstellbar.




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 Funktion und DatumUndZeit