Möchte Formel in einen grösseren Bereich einfügen, welcher sich je nach Datenmenge verändert.
Code hab ich geschrieben, erhalte Fehlermeldung die ich nicht verstehe.
Laufzeitenfehler 1004
Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen.
Hoffe jemand von euch kann mir dabei helfen.
Liebe Gruess
Richi
Mein Code den ich anwende:
Sub Formel()
Dim wb As Workbook
Dim wsZ As Worksheet
Set wb = ThisWorkbook
Set wsZ = wb.Worksheets("Big Data")
lZZ = wsZ.Cells(wsZ.Rows.Count, 1).End(xlUp).Row
Formel01 = "=WENN(A3="";"";WENN(SUMMENPRODUKT(($A$3:$A3=A3)*($B$3:$B3=B3)*($E$3:$E3=E3))>1;0;1))"
Formel02 = "=WENN(A3="";"";WENN(H3=""R0"";0;WENN(G3=$J$2;WENN(SUMMENPRODUKT(($A$3:$A3=A3)*($B$3:$B3=B3)*($E$3:$E3=E3)*($G$3:$G3=G3))>1;0;1);0)))"
Formel03 = "=WENN(A3="";"";WENN(H3=""R0"";0;WENN(G3=$K$2;WENN(SUMMENPRODUKT(($A$3:$A3=A3)*($B$3:$B3=B3)*($E$3:$E3=E3)*($G$3:$G3=G3))>1;0;1);0)))"
Formel04 = "=WENN(A3="";"";WENN(H3=""R0"";0;WENN(G3=$L$2;WENN(SUMMENPRODUKT(($A$3:$A3=A3)*($B$3:$B3=B3)*($E$3:$E3=E3)*($G$3:$G3=G3))>1;0;1);0)))"
wsZ.Range(Cells(3, 9).Cells(3, lZZ)).FormulaLocal = Formel01
wsZ.Range(Cells(3, 10).Cells(3, lZZ)).FormulaLocal = Formel02
wsZ.Range(Cells(3, 11).Cells(3, lZZ)).FormulaLocal = Formel03
wsZ.Range(Cells(3, 12).Cells(3, lZZ)).FormulaLocal = Formel04
End Sub