Formeltext via Array in Zellen schreiben
16.11.2022 11:12:48
Astis
danke vorab dass du den Beitrag liest und mir vielleicht bei folgendem Problem weiterhelfen kannst.
Ich möchte mit dem folgenden Code eine Formel in die entsprechenden Zellen schreiben.
Allerdings kommt es dabei zu einer Fehlermeldung.
Ersetze ich die Formel durch einen Text (im Beispiel Test) klappt der Code
Wo liegt hier der Fehler?
Übrigens, im Lokal-Fenster wird der Array mit der Formel gefüllt, aber zum Ende hin gibts den Fehler:1004 - Anwendungs oder obkektdefinierter Fehler
Hier der Code:
Sub los()
Dim rngData As Range
Dim i As Long
Dim arr As Variant
lz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Set rngData = Master.Range("AI2:" & "AI" & lz + 1)
ReDim arr(2 To rngData.Rows.Count, 1 To rngData.Columns.Count)
arr = rngData.Value
For i = 1 To UBound(arr, 1)
'Code mit Wort "Test" - funktioniert
'arr(i, 1) = "Test"
'Code mit Formel - funktioniert nicht
arr(i, 1) = "=WENN(AB2"""";1;0)+WENN(AC2"""";1;0)" & "+WENN(AD2"""";1;0)+WENN(AE2"""";1;0)+WENN(AF2"""";1;0)+WENN(AG2"""";1;0)"
Next i
Range("AI2").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
End Sub
Anzeige