|
Hallo alle Zusammen,
ich versuche in einem Projekt aktuell einen Zellenbereich zu kopieren, in denen die Werte aus Formeln bestehen. Ich möchte aber nur die Werte haben, und zwar genau so wie sie auf dem Quellblatt stehen. Wenn ich kopiere und einfüge, sind die reinen Zahlen nach rechts gerückt und die leeren Zellen mit Nullen aufgefüllt. Wie kann ich das verhindern und das kopierte so einfügen, wie es auch auf dem Quellblatt stand?
Meine Funktion:
Private Function CreateAnlage(rRange As range, RGNr As Integer, KundenNr As Long)
Dim pdfWs As Worksheet
Set pdfWs = ThisWorkbook.Worksheets("PDF")
pdfWs.Cells(1, 1).Value = "Kundennummer: " & KundenNr
pdfWs.Cells(2, 1).Value = "Rechnungsnummer: 2020 - " & RGNr
pdfWs.Cells(3, 1).Value = "Datum: " & Date
rRange.Copy
pdfWs.Cells(5, 1).PasteSpecial Paste:=xlPasteColumnWidths, SkipBlanks:=True
pdfWs.Cells(5, 1).PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True
pdfWs.Activate
End Function
Ich habe schon alle Parameter von PasteSpecial ausprobiert, jedoch bekomme ich es nie wie auf dem Quellblatt hin.
Hier die Quelldaten:
Und hier das Ergebnis, Kundendaten natürlich unkenntlich gemacht:
Wie man sieht, sind die Markierten Bereiche leicht abgeändert (verrückt und leere Zeilen mit Nullen aufgefüllt)
Danke im Voraus für eure Hilfe!
MfG,
Eyyub
|