Public Sub VerteilerlisteDrucken()
Dim avntValues As Variant, vntItem As Variant
Dim objDictionary As Object
With Worksheets("Einfügen")
avntValues = .Range(.Cells(4, 1), .Cells(.Rows.Count, 1).End(xlUp)).Value2
Set objDictionary = CreateObject(Class:="Scripting.Dictionary")
With objDictionary
For Each vntItem In avntValues
If vntItem <> "" Then
.Item(Key:=vntItem) = vbNullString
End If
Next
End With
If .AutoFilterMode Then Call .AutoFilter.ShowAllData
For Each vntItem In objDictionary.Keys
Call .Rows(1).AutoFilter(Field:=1, Criteria1:=vntItem)
Call .PrintOut
Next
Call .ShowAllData
End With
Set objDictionary = Nothing
End Sub