Problem mit PasteSpecial
29.01.2015 22:06:04
Lola
unten seht ihr ein paar Zeilen, bei denen es beim Einfügen mit PasteSpecial zu einem Laufzeitfehler kommt. Seht ihr einen Fehler oder habt ihr einen Tipp voran das liegen könnte?
Anzahl_Zeilen = Datei1_AB.UsedRange.Rows.Count
Datei1_AB.Range(Cells(1, 4), Cells(Anzahl_Zeilen, 4)).copy _
Destination:=Datei1_AB2.Cells(1, 1)
Datei1_AB.Range(Cells(1, 16), Cells(Anzahl_Zeilen, 16)).copy _
Destination:=Datei1_AB2.Cells(1, 2)
Datei1_AB.Range(Cells(1, 18), Cells(Anzahl_Zeilen, 18)).copy _
Destination:=Datei1_AB2.Cells(1, 3)
With Datei1_AB2
.Cells(1, 4).Value = "0"
.Cells(1, 4).copy
'.Range(Cells(2, 2), Cells(10, 2)).PasteSpecial _
Paste:=xlAdd
.Range(Cells(2, 2), Cells(10, 2)).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlAdd
End With
Liebe Grüße
Lola