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
|