Seriendruck Anpassung Makro
27.01.2014 17:53:17
Excel
ich habe es einfach nicht geschafft bestehende Beiträge auf meine Wünsche zu übertragen. Wer kann helfen?
Ich habe folgenden aufgezeichneten Code der gut funktioniert:
Sheets("Stammdaten").Select
Range("A5").Select
ActiveCell.FormulaR1C1 = "x"
Sheets("Anschreiben").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Stammdaten").Select
Selection.ClearContents
Range("A6").Select
ActiveCell.FormulaR1C1 = "x"
Sheets("Anschreiben").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Stammdaten").Select
Selection.ClearContents
Also in Spalte A Tabelle "Stammdaten" (ab A5) wird ein x gesetzt. (Dieses steuert die Einträge der zu druckenden Tabelle "Anschreiben")
Dann erfolgt der Druck des Anschreibens.
Das x wird gelöscht und in die nächste Zeile der Spalte A geschrieben, um dann diese Werte ins ANschreiben zu übernehmen und den Druck des Anschreibens auszulösen.
Dies soll so weitergehen, bis das Ende der Einträge in Tabelle "Stammdaten erreicht ist. Das Ende ist abhängig von den Einträgen ab Spalte B. (Also: Wenn B10=""; nicht mehr Drucken!)
Da ich weder das Makro mit jeder Zeilenzahl in "Stammdaten" anpassen will, noch die möglichen Einträge auf die Zahl der Makro-Sprünge begrenzen wil, suche ich die eine Lösung mit enstsprechender Bedingungsabfrage.
Ich hoffe ich hab mich verständlich ausdrücken können udnsage schomn einmal Danke und Grüße
Alex