|
Salut!
Ich bin auf der Suche nach einem passenden VBA Code fuer einen Seriendruck in Excel ohne dabei auf Word zurueckgreifen zu muessen. Aus einer Quelltabelle (adr) sollen also Daten aus Zeilen nacheinander in ein anderes Tabellenblatt (form) uebernommen werden und dann ausgedruckt werden. Dabei soll jedoch immer erst nach der Uebernahme von <b>drei</b> Datensaetzen der Druck des Formblattes (form) erfolgen, einfach um Papier zu sparen. Ausserdem sollen nur diejenigen Datensaetze beruecksichtigt werden, die in der Quelltabelle mit einem x gekennzeichent sind. Aktuell habe ich folgenden Code dafuer herangezogen.
Public Sub Seriendruck()
For a = 1 To Sheets("adr").Cells(1, 1).End(xlDown).Row
If CStr(Sheets("adr").Cells(a, 4)) = "x" Then
If CStr(Sheets("adr").Cells(a, 3)) = "m" Then
Sheets("form").Cells(1, 2).Value = "Herrn"
Else: Sheets("form").Cells(1, 2).Value = "Frau"
End If
Sheets("form").Cells(1, 3).Value = CStr(Sheets("adr").Cells(a, 2))
Sheets("form").Cells(1, 4).Value = CStr(Sheets("adr").Cells(a, 1))
End If
Sheets("form").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next a
End Sub
Dieser gibt allerdings nur vor, ausschliesslich die mit x gekennzeichenten Datensaetze zu drucken. Tatsaechlich werden jedes Mal alle rausgelassen. Ausserdem erfolgt der Druck nach jedem Datensatz, sodass nur eine Zeile auf jedem A4 Blatt steht. Wie kann ich den Code so modifizieren, dass die beiden Faktoren beruecksichtigt werden?
Merci d'avance!
|