|
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:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | Sub VerpackungsartVervollständigen()
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:
1 2 3 4 5 | 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
|