Hi Alexandra,

ich kann es nicht einfach mit Sverweis lösen da ich auf einige Kriterien achten muss.

Jetzt habe ich die Formel erweitert und es funktioniert wieder nicht mit vba in Zelle R2 die Formel einzufügen. Vielleicht kannst du oder jemand anderes mir nochmal helfen. :)

Hier mal das funktionierende Makro mit der alten Formel:

Sub VerpackungsartVervollständigen()
'
' Makro2 Makro
'
Dim letzteZeile As Long

    letzteZeile = Cells(Rows.Count, 2).End(xlUp).Row
    
    Range("R2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=1,""1180x780x1100"",IF(RC[-5]=2,""1180x780x1100"",IF(RC[-11]=""190"",""190x140x100"",IF(RC[-11]=""290K"",""290x190x100"",IF(RC[-11]=""290G"",""290x190x150"",IF(RC[-11]=""305"",""305x225x124"",IF(RC[-11]=""390M"",""390x290x100"",IF(RC[-11]=""390G"",""390x290x200"",IF(RC[-11]=""394"",""394x194x220"",IF(RC[-11]=""530K"",""530x190x115"",IF(RC[-11]=""530M"",""" & _
        "530x190x230"",IF(RC[-11]=""530G"",""530x380x230"",IF(RC[-11]=""600"",""600x400x500"",IF(RC[-11]=""710"",""710x300x195"",IF(RC[-11]=""800"",""800x600x500"",IF(RC[-11]=""885"",""885x250x394"",IF(RC[-11]=""1180"",""1180x780x1100"",IF(RC[-11]=""BAN24"",""Banane"",IF(RC[-11]=""BAN20"",""Banane"",IF(RC[-11]=""BAN16"",""Banane"",IF(RC[-11]=""KAR"",""Original"",""""))))))))" & _
        ")))))))))))))" & _
        ""
    Range("R2").AutoFill Destination:=Range("R2:R" & letzteZeile), Type:=xlFillDefault
    Range("R2:R" & letzteZeile).Copy
    Range("G2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("R2:R" & letzteZeile).Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub

Jetzt möchte ich nur die Stelle mit der Formel (ActivCell.FormulaR1C1 = ...) ändern.

Formel Neu:

    ActiveCell.FormulaR1C1 = _
        "=IF(OR(RC[-5]=1,RC[-5]=2),""1180x780x1100"",IF(RC[-11]=190,""190x140x100"",IF(RC[-11]=""290K"",""290x190x100"",IF(RC[-11]=""290G"",""290x190x150"",IF(RC[-11]=305,""305x225x124"",IF(RC[-11]=""390M"",""390x290x100"",IF(RC[-11]=""390G"",""390x290x200"",IF(RC[-11]=394,""394x194x220"",IF(RC[-11]=""530K"",""530x190x115"",IF(RC[-11]=""530M"",""530x190x230"",IF(RC[-11]=""53" & _
        "30x380x230"",IF(RC[-11]=600,""600x400x500"",IF(RC[-11]=710,""710x300x195"",IF(RC[-11]=800,""800x600x500"",IF(RC[-11]=885,""885x250x394"",IF(RC[-11]=1180,""1180x780x1100"",IF(RC[-11]=""BAN24"",""Banane"",IF(RC[-11]=""BAN20"",""Banane"",IF(RC[-11]=""BAN16"",""Banane"",IF(AND(RC[-11]=""KAR"",RC[-12]>1),""Original"",IF(RC[-11]=""190x140x100"",RC[-11],IF(RC[-11]=""290x19" & _
        "C[-11],IF(RC[-11]=""290x190x150"",RC[-11],IF(RC[-11]=""305x225x124"",RC[-11],IF(RC[-11]=""390x290x100"",RC[-11],IF(RC[-11]=""390x290x200"",RC[-11],IF(RC[-11]=""394x194x220"",RC[-11],IF(RC[-11]=""530x190x115"",RC[-11],IF(RC[-11]=""530x190x230"",RC[-11],IF(RC[-11]=""530x380x230"",RC[-11],IF(RC[-11]=""600x400x500"",RC[-11],IF(RC[-11]=""710x300x195"",RC[-11],IF(RC[-11]=" & _
        "x500"",RC[-11],IF(RC[-11]=""885x250x394"",RC[-11],IF(RC[-11]=""1180x780x1100"",RC[-11],IF(RC[-11]=""Banane"",RC[-11],""""))))))))))))))))))))))))))))))))))))"

ich weiß echt nicht, wieso es nicht funktioniert.

Ich habe es auch schon mit FormulaLocal probiert aber das funktioniert auch nicht.

Es kommt die Fehlermeldung

Achja fast hätte ich vergessen die neue Formel einzufügen. :)

=WENN(ODER(M2=1;M2=2);"1180x780x1100";WENN(G2=190;"190x140x100";WENN(G2="290K";"290x190x100";WENN(G2="290G";"290x190x150";WENN(G2=305;"305x225x124";WENN(G2="390M";"390x290x100";WENN(G2="390G";"390x290x200";WENN(G2=394;"394x194x220";WENN(G2="530K";"530x190x115";WENN(G2="530M";"530x190x230";WENN(G2="530G";"530x380x230";WENN(G2=600;"600x400x500";WENN(G2=710;"710x300x195";WENN(G2=800;"800x600x500";WENN(G2=885;"885x250x394";WENN(G2=1180;"1180x780x1100";WENN(G2="BAN24";"Banane";WENN(G2="BAN20";"Banane";WENN(G2="BAN16";"Banane";WENN(UND(G2="KAR";F2>1);"Original";WENN(G2="190x140x100";G2;WENN(G2="290x190x100";G2;WENN(G2="290x190x150";G2;WENN(G2="305x225x124";G2;WENN(G2="390x290x100";G2;WENN(G2="390x290x200";G2;WENN(G2="394x194x220";G2;WENN(G2="530x190x115";G2;WENN(G2="530x190x230";G2;WENN(G2="530x380x230";G2;WENN(G2="600x400x500";G2;WENN(G2="710x300x195";G2;WENN(G2="800x600x500";G2;WENN(G2="885x250x394";G2;WENN(G2="1180x780x1100";G2;WENN(G2="Banane";G2;""))))))))))))))))))))))))))))))))))))

Hoffe ihr bringt dieses Makro auch zu laufen.

Hier die Datei mit Makro, welches nicht funktioniert.

https://www.dropbox.com/s/g67wl319zt6b4p6/Stammdaten.xlsx.xlsm?dl=0

Vielen vielen Dank schonmal im Voraus