Thema Datum  Von Nutzer Rating
Antwort
19.10.2020 12:51:56 Eyyub
NotSolved
19.10.2020 13:06:53 Eyyub
NotSolved
19.10.2020 13:14:06 volti
NotSolved
19.10.2020 13:22:49 Eyyub
NotSolved
Rot Kopieren von Zellen
 19.10.2020 13:55:39 volti
*****
Solved
19.10.2020 14:12:09 Eyyub
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
19.10.2020 13:55:39		 Views:
495		 Rating:
     
Antwort:
 Nein
Thema:
Kopieren von Zellen

Und hat Du es mal mit vorher Formate kopieren versucht?

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
19.10.2020 12:51:56 Eyyub
NotSolved
19.10.2020 13:06:53 Eyyub
NotSolved
19.10.2020 13:14:06 volti
NotSolved
19.10.2020 13:22:49 Eyyub
NotSolved
Rot Kopieren von Zellen
 19.10.2020 13:55:39 volti
*****
Solved
19.10.2020 14:12:09 Eyyub
NotSolved