Thema Datum  Von Nutzer Rating
Antwort
23.11.2020 18:14:47 Yanuggel
NotSolved
23.11.2020 19:05:38 Yanuggel
NotSolved
Rot Rechnungs-Template Loop & Speichern als PDF
 23.11.2020 19:10:06 volti
NotSolved
23.11.2020 19:36:17 Yanuggel
Solved

Ansicht des Beitrags:
Von:
volti		 Datum:
23.11.2020 19:10:06		 Views:
700		 Rating:
     
Antwort:
  Ja
Thema:
Rechnungs-Template Loop & Speichern als PDF

Hallo Yannick,

Excel-Blätter haben einen technischen Namen z.B. Tabelle5 und einen Namen wie er im Reiter angezeigt wird Sheets("RGTemplate")

Tabelle5 ist aber nicht unbedingt das gleiche wie Sheets("Tabelle5"), es sei denn das Blatt heißt auch so. Du hast sie aber gemischt mit gleichem Namen verwendet. Das führt zu Fehlern.

Hier mal eine aufgeräumte Version, die auch die Endzeile an den Inhalt anpasst. Vielleicht bringt Dich das ja schon weiter.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Rechnung_Generieren()
 Dim sPfad As String, sFilename As String
 Dim oBer As Range, WSh As Worksheet
 Dim i As Integer
   
 sPfad = "C:\Users\b1bya\Google Drive\NOST_CRM\"
 Set WSh = ThisWorkbook.Sheets("Verrechnungen")                             'Tabelle referenzieren
   
 For i = 2 To 3
    With ThisWorkbook.Sheets("RGTemplate")                                  'Tabelle referenzieren
       .Cells(18, 5).Value = WSh.Cells(i, 1).Value                          'Rechnungsnummer übernehmen
       sFilename = "invoice" & WSh.Cells(i, 1).Value & ".pdf"               'Dateinamen festlegen
       Set oBer = .Range("A1:J" & .Cells(Rows.Count, 1).End(xlUp).Row)      'Letzte Zeile ermitteln
       oBer.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPfad & sFilename, _
            quality:=xlQualityStandard, includedocproperties:=True, _
            ignoreprintareas:=True, openafterpublish:=False                 'PDF erstellen
    End With
 Next i
  
 MsgBox "Erledigt", vbInformation, "PDF-Export"
  
End Sub

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
23.11.2020 18:14:47 Yanuggel
NotSolved
23.11.2020 19:05:38 Yanuggel
NotSolved
Rot Rechnungs-Template Loop & Speichern als PDF
 23.11.2020 19:10:06 volti
NotSolved
23.11.2020 19:36:17 Yanuggel
Solved