Hallo zusammen,

Ich habe einen Code mit KI und die Spalte wird hinzugefügt, aber die Formel mit den Ergebnissen wird nicht ausgeführt und ich bekomme einen Laufzeitfehler 1004. Kann mir jemand helfen?

https://www.herber.de/bbs/user/175638.xlsx

Sub NeueSpalteMitFormel()
' Neue Spalte zwischen C und D einfügen
Columns("D:D").Insert Shift:=xlToRight

' Setze den Titel "Anzahl" in Zelle D1
Range("D1").Value = "Anzahl"

' Setze das Zahlenformat für die Spalte D auf Standard (um Textformat zu vermeiden)
Columns("D:D").NumberFormat = "General"

' Setze die Formel in Zelle D2
Range("D2").Formula = "=WENNFEHLER(VERWEIS(9;1/(LINKS(E2;AGGREGAT(14;6;SPALTE(A2:V2)/(TEIL(E2;SPALTE(A2:V2);1)=""."";1)-1)=E$1:E1);D$1:D1)*C2;C2)"

' Die Formel von D2 bis D100 ausfüllen
Range("D2:D100").FillDown

' Stellen sicher, dass die Formeln als Berechnungen angezeigt werden
Application.Calculate
End Sub