Sub Makro3()
'
' Makro3 Makro
'
'
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("R3").Select
End Sub
Wie gesagt, ich würde es viel einfacher lösen, aber dazu brauchen ich die Liste!
LG
Alexandra