Kann mir jemand bei diesem Makro eine Schleife einbauen?
ich benötige dringend Hilfe bei diesem Makro!
ich habe dieses Makro von einem Mitglied von gf.
dieses Makro benötigt dringend eine Schleife
von Zeile 1 To 6000
also Zeile 1 ist SUMME(ZÄHLENWENN($A1:$F1;$L:$Q))
und Zeile 2 wäre dann $A2:$F2
und das Ganze dann bis Zeile 6000
Sub FormelAnpassen()
Dim spalte As Long
Dim zeile As Long
Dim bezugZeile As Long
zeile = 2
bezugZeile = 0
For spalte = 20 To 200
bezugZeile = bezugZeile + 1
Cells(zeile, spalte).FormulaArray = "=SUM(COUNTIF($A1:$F1,$L$" & bezugZeile & ":$Q$" & bezugZeile & "))"
Next
End Sub
es wäre super wenn mir jemand helfen würde
danke im voraus
1 Antwort
Teste mal genau, am besten erstmal für die ersten 10 Zeilen:
Sub FormelAnpassen()
Dim spalte As Long
Dim zeile As Long
Dim bezugZeile As Long
For zeile = 1 To 10
bezugZeile = 0
For spalte = 20 To 200
bezugZeile = bezugZeile + 1
Cells(zeile, spalte).FormulaArray = "=SUM(COUNTIF($A" & zeile & ":$F" & zeile & ",$L$" & bezugZeile & ":$Q$" & bezugZeile & "))"
Next spalte
Next zeile
End Sub
Wenn das passt, machst Du aus der 10 Dein 6000.
So brauchst Du nicht solange zu warten.
ich werde es gleich ausprobieren vielen dank erst mal ich sag Bescheid wenn es funktioniert
Es funktioniert, Hunderttausend Danke dafür, du hast mich gerettet 👍👍👍👍👍