Hallo,
kann mir jemand sagen, was an diesem Code falsch ist. Die Fehlermeldung kommt bei der ersten Array-Formel und ich komm nicht dahinter, was falsch sein kann.
Option Explicit Sub Formelneintragen() With ActiveSheet Application.ScreenUpdating = False .Unprotect Range(Cells(3, 22), Cells(14, 23)).ClearContents .Cells(3, 22).FormulaArray = "=INDEX(E$3:E$1000;MIN(WENN(E$3:E$1000"""";ZEILE(1:998))) _ )" .Cells(4, 22).FormulaArray = "=WENN(SUMME(ZÄHLENWENN(E$3:E$1000;V$3:V3))>=SUMME((E$3:E$ _ 1000"""")*1);"""";INDEX(E$3:E$1000;VERGLEICH(1;(ZÄHLENWENN(V$3:V3;E$3:E$1000)=0)*(E$3:E$1000"""");0)))" .Range(.Cells(4, 22), .Cells(14, 22)).FillDown .Cells(3, 23).FormulaArray = "=INDEX(F$3:F$1000;MIN(WENN(F$3:F$1000"""";ZEILE(1:998))) _ )" .Cells(4, 23).FormulaArray = "=WENN(SUMME(ZÄHLENWENN(F$3:F$1000;W$3:W3))>=SUMME((F$3:F$ _ 1000"""")*1);"""";INDEX(F$3:F$1000;VERGLEICH(1;(ZÄHLENWENN(W$3:W3;F$3:F$1000)=0)*(F$3:F$1000"""");0)))" .Range(Cells(4, 23), Cells(14, 23)).FillDown Range("A1").Selecet End With End Sub Wenn ich den Code über ein Schaltfläche laufen lasse kommt der Fehler "400", wenn ich den Code mit Einzelschritten durchgehe kommt der Fehler "Anwendungs- oder objektdefinierter Fehler"
Danke und Servus, Walter