Genau dies macht doch mein Workaround, Sabine!
Womit kommst Du nicht klar, mit dem Spezialfilter?
Folgendes Makro macht alles in einem Rutsch:
-
Erstellen der Unique-Liste in Spalte XFD
-
Bennen dieses Bereichs in "Sorten"
-
Schleife über alle Sorten, AutoFilter, Ausdruck
-
Löschen des Bereichs "Sorten"
Enjoy ;)
Dim Obstsorte As Range
Application.ScreenUpdating = False
With Tabelle1
' Liste ohne Duplikate erstellen
.Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Range("XFD1"), Unique:=True
.Range(.Range("XFD1"), .Range("XFD1").End(xlDown)).Name = "Sorten"
For Each Obstsorte In Range("Sorten")
With Tabelle1.Range("A1").CurrentRegion
.AutoFilter 1, Obstsorte
.PrintPreview ' .PrintOut für Ausdruck
.AutoFilter
End With
Next
.Range("Sorten").Delete
End With
End Sub
|