Public Sub Splitten()
Dim avPartner As Variant
Dim vntItem As Variant
Dim avBelegart As Variant
Dim objDictionary As Object
Dim objWorkbook As Workbook
With Application
.Calculation = xlCalculationManual
.EnableEvents = False
.ScreenUpdating = False
End With
With T2_OffenePosten
avPartner = .Range(.Cells(2, 8), .Cells(.Rows.Count, 8).End(xlUp)).Value2
End With
Set objDictionary = CreateObject(Class:="Scripting.Dictionary")
With objDictionary
For Each vntItem In avPartner
.Item(Key:=vntItem) = vbNullString
Next
End With
avBelegart = "KA"
For Each vntItem In objDictionary
Call T2_OffenePosten.Rows(1).AutoFilter(Field:=8, Criteria1:=vntItem)
T2_OffenePosten.ShowAllData
Next
End Sub