VBA Schlaufe für Rechnungsdruck

Liebes Forum

Ich hoffe auf eure Hilfe, da ich mir das Leben (oder besser "die Arbeit") sehr gerne etwas leichter machen würde... ich habe über die Suche zwar ähnliche Hilfestellungen gefunden, allerdings habe ich es bisher nicht geschafft, mir einen funktionierenden Code abzulegen, welcher das macht, was ich möchte :-(.

Immer Ende Monat muss ich Rechnungen drucken für meine Kunden. Ich verwalte alle Daten in Excel und habe auch eine Rechnungsvorlage, die schon gut funktioniert. Ich muss nur die Kundennummer in Zelle C1 eingeben und eine PDF erstellen. Was ich schon geschafft habe ist ein Makro, welches mir die PDF erstellt, ihr den richtigen Namen gibt und sie im Ordner xy ablegt.

Nun würde ich gerne eine Schlaufe erstellen, welche:

- Im WS "RG_autom" in Zelle C1 die erste Kundennummer aus Spalte A im WS "RG_KD" einfügt
- dann die PDF erstellt
- und danach die nächste Kundennummer in C1 einfügt, wieder eine PDF erstellt, usw.

Und zwar so lange, bis die ganze Liste aus Spalte A aus dem WS "RG_KD" durch ist und für jeden Kunden die Rechnung erstellt wurde.

Ich habe schon hier gesucht, Google durchforstet und einiges ausprobiert, bisher leider ohne Erfolg.

Könnte mir hier jemand helfen? Den aktuellen Code für den PDF-Druck ist folgender:

Sub PDFerstellen()

'

' PDFerstellen Makro

'

' Tastenkombination: Strg+b

'

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        "C:\Users\info\OneDrive\frucht-abo.ch\Rechnungen Kunden\Neue_Rechnungen\RG_Fruchtabo_" & Range("C1") & "-" & Range("C2") & ".pdf" _

        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _

        :=False, OpenAfterPublish:=True

    Range("C1").Select

End Sub

Danke euch allen im Voraus ganz herzlich :-)

Liebe Grüsse
Thomas

Hallo Jochen

Wow, vielen herzlichen Dank für die schnelle Hilfe :-)!

Als Erstes, natürlich, ich meinte "Schleife", nicht Schlaufe :-D! Ich habe deinen Code mal getestet... musste noch etwas anpassen, der WS heisst "RG_KD" (nicht RS_KD); alles eingefügt, beim Ausführen gibt's keine Fehlermeldung, aber es passiert... nichts. Resp. macht er zumindest keine PDFen in meinen Ordner :-). Was ich noch angepasst habe, ist auf "false" zu stellen bei "openafterpublishing", wenn er mir 200 PDF-Dateien erzeugt, muss er ja nicht jede öffnen.

Der Code sieht bei mir jetzt so aus:

Option Explicit



Sub PDFerstellen()

'

' PDFerstellen Makro

'

' Tastenkombination: Strg+b

'

Dim RGKD As Worksheet

Set RGKD = Worksheets("RG_KD")

Dim RGautom As Worksheet

Set RGautom = Worksheets("RG_autom")

Dim ze As Long





 For ze = 2 To RGKD.Cells(Rows.Count, 1).End(xlDown)

     RGautom.Cells("C1") = RGKD.Cells(ze, 1)

    

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

    "C:\Users\info\OneDrive\frucht-abo.ch\Rechnungen Kunden\Neue_Rechnungen\RG_Fruchtabo_" & Range("C1") & "-" & Range("C2") & ".pdf" _

    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _

    :=False, OpenAfterPublish:=True

    

 Next

  

 RGautom.Range("C1").Select

End Sub

Fällt dir vielleicht gleich auf, was ich falsch gemacht habe...?

Lieben Dank und LG
Thomas

Forumthread: VBA Schlaufe für Rechnungsdruck

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Schlaufe für Rechnungsdruck

Forumthread: VBA Schlaufe für Rechnungsdruck

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread