PasteSpecial-Probleme
21.03.2019 11:39:35
Robert
Ich lasse in einem Excelarbeitsblatt einen Gesamtpreis Kalkulieren und möchte das Ergebnis in ein anderes Übertragen. Das Kopieren funktioniert soweit, nur leider überträgt es die Formel wodurch in der Zelle eine Fehlermeldung auftritt.
Sub Kopieren_Gesamt()
Dim wksQ As Worksheet, wksZ_Rechnungen As Worksheet
Dim lngLast As Long
Set wksQ = Sheets("Kalkulation")
Set wksZ_Rechnungen = Sheets("Rechnungen")
lngLast = wksQ.Cells(wksQ.Rows.Count, 1).End(xlUp).Row
wksQ.Range("I12:I" & lngLast).Copy wksZ_Rechnungen.Range("E13").PasteSpecial(xlPasteValues)
End Sub
VG Robert