Geb mal hier den kompletten Code ein. Hoffe man kann etwas damit anfangen. Gruß Emilian

Option Explicit

Private Sub CommandButton1_Click()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
Dim zeile As Long
    Dim zeilemax As Long
    Dim i As Long
    Dim lngZeile As Long, lngSpalte As Long
    Dim LetzteZeile As Long
lngZeile = Worksheets("ArbTab").UsedRange.SpecialCells(xlCellTypeLastCell).Row
lngSpalte = Worksheets("ArbTab").UsedRange.SpecialCells(xlCellTypeLastCell).Column

With Worksheets("ArbTab")
    LetzteZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
        With Worksheets("TabStat")
        Worksheets("TabStat").Range("B1:B60").ClearContents  ' LÖSCHEN der alten Daten???????
              Worksheets("TabStat").Range("b1").FormulaLocal = "=(Jahr(Heute()))"
Worksheets("TabStat").Range("b2").FormulaLocal = "=SUMMENPRODUKT(((ArbTab!$C$2:$C$" & LetzteZeile & "=""Herr"")+(ArbTab!$C$2:$C$" & LetzteZeile & "=""Frau""))/ZÄHLENWENN(ArbTab!$B$2:$B$" & LetzteZeile & ";ArbTab!$B$2:$B$" & LetzteZeile & "))"
Worksheets("TabStat").Range("b3").FormulaLocal = "=SUMMENPRODUKT((ArbTab!$C$2:$C$" & LetzteZeile & "=""Herr"")/ZÄHLENWENN(ArbTab!$B$2:$B$" & LetzteZeile & ";ArbTab!$B$2:$B$" & LetzteZeile & "))"
Worksheets("TabStat").Range("b4").FormulaLocal = "=SUMMENPRODUKT((ArbTab!$C$2:$C$" & LetzteZeile & "=""Frau"")/ZÄHLENWENN(ArbTab!$B$2:$B$" & LetzteZeile & ";ArbTab!$B$2:$B$" & LetzteZeile & "))"
          End With
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = True
End With

End Sub