|
Ich erhalte beim unten erfassten code in der fett markierten Zeile den Run-time error 1004 "Application defined or object defined error". Der Code funktioniert, wenn ich die ganze Reihe kopiere und ins zweite Sheet einfüge. Wenn ich eine bestimmte Range definiere für die Kopie (das zweite Sheet enhält Formeln, welche ich nicht überschreiben möchte), funktioniert es nicht mehr. Der bis anhin gefundenen Lösungsvorschlag (Activate Worksheet) hat nicht geholfen. Kann mir jemand weiterhelfen? Vielen Dank bereits im Voraus! =)
Sub main()
Range("A2:W500").ClearContents
Dim wb As Workbook
Dim Data As Worksheet
Dim Proforma As Worksheet
Dim lastrow As Integer
Dim j As Variant
Set wb = ThisWorkbook
Set Data = wb.Sheets("Sales data")
Set Proforma = wb.Sheets("OPS Proforma")
lastrow = Data.Cells(Rows.Count, 1).End(xlUp).Row
i = 2
For j = 2 To lastrow
If Data.Cells(j, 23).Text = "C-BE-EU" Then
Sheets("Sales data").Range(Cells(j, 1), Cells(j, 23)).Copy
Sheets("Intrastat OUT").Range(Cells(i, 1), Cells(i, 23)).PasteSpecial xlPasteValues
i = i + 1
End If
Next j
...
|