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:=xlFormats
pdfWs.Cells(5, 1).PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True
pdfWs.Activate
End Function
viele Grüße
Karl-Heinz