ich habe einen genialen Code aus diesen Forum, der mir einen Serienbrief aus meiner Tabelle druckt:
Sub Seriendruck()
Dim wks As Worksheet
Dim iRow As Integer
Set wks = Worksheets("Tabelle1")
iRow = 21
Do Until IsEmpty(wks.Cells(iRow, 2))
Range("$G$1") = wks.Cells(iRow, 2)
ActiveSheet.PrintOut
iRow = iRow + 1
Loop
End Sub
Wie erreiche ich es aber, dass nur die gefilterten Daten für den Serienbrief herangezogen werden, momentan druckt er mir alle Daten.
Bin für jeden Tip dankbar.
Gruß aus Würzburg
Guido