Hallo zusammen,
ich habe ein Problem mit folgendem Makro.
Sub VerpackungsartVervollständigen()
'
' Makro2 Makro
'
Dim letzteZeile As Long
letzteZeile = Cells(Rows.Count, 2).End(xlUp).Row
Range("R2").FormulaR1C1 = "=+IF(Range("M2")=""1"",""1180x780x1100"",IF(Range("M2")=""2"",""1180x780x1100"",IF(Range("G2")=""190"",""190x140x100"",IF(Range("G2")=""290K"",""290x190x100"",IF(Range("G2")=""290G"",""290x190x150"",IF(Range("G2")=""305"",""305x225x124"",IF(Range("G2")=""390M"",""390x290x100"",IF(Range("G2")=""390G"",""390x290x200"",IF(Range("G2")=""394"",""394x194x220"",IF(Range("G2")=""530K"",""530x190x115"",IF(Range("G2")=""530M"",""530x190x230"",IF(Range("G2")=""530G"",""530x380x230"",IF(Range("G2")=""600"",""600x400x500"",IF(Range("G2")=""710"",""710x300x195"",IF(Range("G2")=""800"",""800x600x500"",IF(Range("G2")=""885"",""885x250x394"",IF(Range("G2")=""1180"",""1180x780x1100"",IF(Range("G2")=""BAN24"",""Banane"",IF(Range("G2")=""BAN20"",""Banane"",IF(Range("G2")=""BAN16"",""Banane"",IF(Range("G2")=""KAR"",""Original"","""")))))))))))))))))))"
Range("R2").AutoFill Destination:=Range("R2:R" & Ende), Type:=xlFillDefault
Range("R2:R" & letzteZeile).Copy
Range("G2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("R2:R" & letzteZeile).ClearContents
End Sub
Der Fehler befindet sich in Zeile
Range("R2").FormulaR1C1 = ......
Ich weiß nicht mehr weiter. Bitte helft mir
Vielen Dnak im Voraus
|