Thema Datum  Von Nutzer Rating
Antwort
19.10.2020 12:51:56 Eyyub
NotSolved
19.10.2020 13:06:53 Eyyub
NotSolved
Rot Kopieren von Zellen
 19.10.2020 13:14:06 volti
NotSolved
19.10.2020 13:22:49 Eyyub
NotSolved
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:14:06		 Views:
493		 Rating:
     
Antwort:
  Ja
Thema:
Kopieren von Zellen

Hallo, Eyyub,

 

teste mal, ob Dich nachfolgende Codeänderung zum Ziel führt:

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
  pdfWs.Cells(5, 1).Resize(rRange.Rows.Count, rRange.Columns.Count).Value = rRange.Value
  pdfWs.Activate
 
End Function

viel 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
Rot Kopieren von Zellen
 19.10.2020 13:14:06 volti
NotSolved
19.10.2020 13:22:49 Eyyub
NotSolved
19.10.2020 13:55:39 volti
*****
Solved
19.10.2020 14:12:09 Eyyub
NotSolved