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.
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
|