Lohnberechnung mit Excel

[Rabe]

Hi Carsten,

Und sonstige verbesserungen... vlt gefällt es ja dem ein oder anderem oder einer hat Ideen das zu optimieren?

hier was für F28 in Berechnungen:
=0,6+(BearbJahr-2015)*0,04

für B2:
=Gehalt*Sonderzahlung

Allgemein für Deine Makros dies:
"Select
  Selection."
kann jeweils ersatzlos entfernt werden.

Anmerkungen:
Wenn mehrmals "Jahr Eintragen" gedrückt wird, werden in K und L die Zahlen nach unten immer weiter fortgeführt.
Wenn mehr als 12x "Monat Eintragen" gedrückt wird, werden in K und L die Zahlen nach unten immer weiter fortgeführt.
Die Sonderzahlungen werden in K und L nicht berücksichtigt.

Hier die deswegen geänderten Makros:

Sub Übertragen()
   
   Row = Range("Monat").Value
   
   'Brutto 
   Range("B2").Copy
   Range("K" & 1 + Row).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
   
   'Netto 
   Range("B28").FormulaLocal = "=D2-B27-B19"
   Range("B28").Copy
   Range("L" & 1 + Row).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
   
   Application.CutCopyMode = False
   
   Call MPlus
   
End Sub

Sub Jahr()
   Application.ScreenUpdating = False
   Range("K2:L13").ClearContents
   Dim i As Integer
   For i = 1 To 12
      Range("Monat").Value = i
      Call Übertragen
   Next
   Application.ScreenUpdating = True
End Sub