Noch besser so!
Sub Makro4()
Range("R2").Select
ActiveCell.FormulaR1C1 = _
"=IF(R2C13=1,""1180x780x1100"",IF(R2C13=2,""1180x780x1100"",IF(R2C7=""190"",""190x140x100"",IF(R2C7=""290K"",""290x190x100"",IF(R2C7=""290G"",""290x190x150"",IF(R2C7=""305"",""305x225x124"",IF(R2C7=""390M"",""390x290x100"",IF(R2C7=""390G"",""390x290x200"",IF(R2C7=""394"",""394x194x220"",IF(R2C7=""530K"",""530x190x115"",IF(R2C7=""530M"",""530x190x230"",IF(R2C7=""530G" & _
""",""530x380x230"",IF(R2C7=""600"",""600x400x500"",IF(R2C7=""710"",""710x300x195"",IF(R2C7=""800"",""800x600x500"",IF(R2C7=""885"",""885x250x394"",IF(R2C7=""1180"",""1180x780x1100"",IF(R2C7=""BAN24"",""Banane"",IF(R2C7=""BAN20"",""Banane"",IF(R2C7=""BAN16"",""Banane"",IF(R2C7=""KAR"",""Original"","""")))))))))))))))))))))" & _
""
End Sub
|