Thema: Lohnberechnung mit Zuschlagsätzen

Home

Gruppe

Funktion

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

Copy funktioniert nur einmal	Schreibschutz prüfen funktioniert nicht
Split-Funktion beim Einlesen TXT-Datei	Match Funktion spinnt (?)
SVerweis funktioniert nicht	PasteSpecial funktioniert nicht.
VBA-Code funktioniert nicht mit anderem Office	Hilfe bei der INDEX Funktion
Zelladressen von FunktionsParametern ermitteln	Matrixformel mit Summenfunktion
Formel funktioniert nicht, SVerweis	Makro funktioniert nach Beenden von Excel nicht
VLOOKUP auf Links funktioniert offline	@DAVID Zwei SUMMEWENN funktionen verknüpfen
Zwei SUMMEWENN funktionen verknüpfen	Polynomfunktion
Mit vba Funktionen in Excel Zellen	Rang-Funktion für Strings?
Skript funktioniert nur auf einer seite?!?!	Hyperlink auf Excel-Datei funktioniert nicht
Public Funktion / Variabel	VBA - Suchfunktion - Fehlermeldung
Benutzerdefinierte Funktion	Userform mit Löschfunktion
Frage zu Wenn Dann Funktion	Wenn-Funktion
Frage zur Funktion DISAGIO	Funktion um Chart zu kreieren
Wenn-Funktion verschachtelt	VBA Suchfunktion erweitern
Makro funktioniert nicht richtig	zählenwenn-funktion mit mehreren kriterien
Funktion SVERWEIS	Benutzerdefinierte Funktion in Open Office
Funktion Dezimal -> Zeit/ Variablen-Deklaration	Probleme mit Textfunktionen
Fehler, wenn Variable in Funktion	VBA-Funktion analog =ZELLE("Zeile")
Gültigkeit funktioniert nicht!	Zellausrichtung funktioniert nicht
WENN-Funktion	Hide-Funktion in einem Frame
Suchfunktion	Date Funktion
Filter funktioniert nicht	Funktionsname austauschen
Datum in der Funktion VERWEIS	Sub oder Funktion nicht definiert in kleinem Makro
Funktion in einer anderen Datei aufrufen	Multifunktionsleiste abfragen