Antwort
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