Office: (Office 2010) Makro schreiben: Filter der Reihe nach Setzen und für jede Filterung 1x Drucken

Guten Tag zusammen,

ich habe ein Problemchen und weiß nicht, wie ich das Makro angehen soll bzw. ob es überhaupt möglich ist.

Folgende Ausgangslage:
Ich habe eine .xlsx mit mehreren Tabellenblättern.

Jedes Tabellenblatt ist gleich aufgebaut:
Spalte A: Bezeichnung
Spalte B: Baugruppennummer
Spalte C: Stücklistennummer
...
(Anmerkung: Die Spaltentitel stehen in Zeile 6, die Auflistung erfolgt darunter)

Was möchte ich machen?
Nun, im Prinzip soll das Makro die Spalte B filtern.
Dabei soll jede Baugruppe immer einzeln angewählt werden.
Die jeweilige Auswahl soll dann gedruckt werden.
Anschließend soll die nächste Baugruppe ausgewählt und wieder gedruckt werden.
Solange, bis alle Baugruppen aus einem Tabellenbaltt gedruckt sind.
Und dann ab ins nächste Tabellenblatt und das gleiche Spiel von Neuem.

Weiß jemand von Euch, wie ich das am Besten angehe?

Schönen Gruß,
Papa

 

Moin!
Die Beschreibung ist ein wenig dünn.
Daher nur ein Snippet, anpassen musst Du selbst.
Äußere Schleife über alle Worksheets, innere über alle Begriffe:

Code:

Sub Papierverbrauch()
Dim ws As Worksheet, Begriff As Range
For Each ws In Worksheets
  For Each Begriff In Range("Begriffe")
    ws.Range("A6").CurrentRegion.AutoFilter 2, Begriff
    ws.PrintOut
  Next
Next
End Sub

Gruß Ralf