Seriendruck im Abhängigkeit eines Kritirium
15.06.2015 11:17:45
Matthias
Ich möchte in der Userform über den Button drucken und in Abhängigkeit der Combox (In der Combebox sollten bestimmte Blätter auswählbar sein) die Daten der ausgewählten Tabelle ab einer bestimmten Zeile (2) durchlaufen. Wenn nun in Spalte D der Werte P steht, soll die laufende Nr. der Zeile in das Blatt A in Zelle A1 übertragen werden. Desweiteren soll in Zelle A2 der Name des ausgewählten Blattes aus der Combobox übertragen und das Blatt ausgedruckt werden. Danach werden die Daten des ausgewählten Blattes bis zum nächsten Datensatz mit dem Werte P in der Spalte H durchlaufen.
Dazu anbei die Datei
https://www.herber.de/bbs/user/98200.xlsm
Vielen lieben Dank.
Gruß
Ich hatte hierzu bereits den nachfolgenden Code in einem Modul verwendet, jedoch ohne die das Kriterium der Blattwahl über die Combobox. Der Code ist aus einer anderen Datei. Deshalb passen die Bezüge nicht zu meiner jetzigen Datei.
Option Explicit
Sub Seriendruck()
Dim wks As Worksheet
Dim iRow As Integer
Set wks = Worksheets("1")
iRow = 9
Do Until IsEmpty(wks.Cells(iRow, 1))
Worksheets("2").Range("$G$1") = wks.Cells(iRow, 1)
Worksheets("3").Range("$G$1") = wks.Cells(iRow, 1)
Worksheets("2").PrintOut
Worksheets("3").PrintOut
iRow = iRow + 1
Loop
End Sub