Moin,
ich komme aktuell nicht weiter und habe schon viele Dinge auspprobiert. Ich möchte die Zählenwenns-Formel automatisch in die Zellen A2-G2 schreiben. Sie soll so aussehen:
Zählenwenns(B2:B77523, 3, [@[Endung]], R1C1)
Die 77523 soll jedes Mal variabel sein und daher mit lstrow eingefügt werden. Ich habe unten schon mehrer Schreibweisen ausprobiert, aber nichts davon hat geklappt. Bekomme immer den Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler.
Bisher konnte ich leider keine Hilfe zu dieser Problemstellung finden.
Freue mich, wenn jemand mir dabei weiterhelfen kann.
Dim lstrow As Long
lstrow = Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Range("A2").Select
ActiveCell.FormulaR1C1 = "=COUNTIFS(Range(Cells(4, 2), Cells(lstrow, 2)),3,[@[Endung]],R1C1)"
ActiveCell.FormulaR1C1 = "=COUNTIFS(R[2]C[1]:R[" & lstrow - 1 & "]C[1],3,[@[Endung]],R1C1)"
ActiveCell.FormulaR1C1 = "=COUNTIFS(B4:B" & lstrow & ",3,[@[Endung]],R1C1)"
ActiveCell.FormulaR1C1 = "=COUNTIFS(Cells(4, 2), Cells(lstrow, 2),3,[@[Endung]],R1C1)"
Range("B2").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIFS(Cells(4, 2), Cells(lstrow, 2),3,[@[Endung]],R1C2)"
Range("C2").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIFS(Cells(4, 2), Cells(lstrow, 2),3,[@[Endung]],R1C3)"
Range("D2").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIFS(Cells(4, 2), Cells(lstrow, 2),3,[@[Endung]],R1C4)"
Range("E2").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIFS(Cells(4, 2), Cells(lstrow, 2),3,[@[Endung]],R1C5)"
Range("F2").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIFS(Cells(4, 2), Cells(lstrow, 2),3,[@[Endung]],R1C6)"
Range("G2").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIFS(Cells(4, 2), Cells(lstrow, 2),3,[@[Endung]],R1C7)"