Ich hänge wahrscheinlich an einer Bagatelle fest: Ich möchte eine Unikateliste mit dem AdvancedFilter erstellen aber die Daten kommen aus mehreren Spalten, die nicht zusammenhängen. Kann mir jemand auf die Sprünge helfen?
Vielen Dank schon mal!
Private Sub UnikatlisteErstellen()
Dim rngB1 As Range
Dim rngB2 As Range
Dim rngB3 As Range
Dim rngB4 As Range
Dim rngB5 As Range
Dim rngBereich As Range
Dim iZeileMax As Integer
tbl_Verbrauchertyp.Range("A:K").ClearContents
iZeileMax = tbl_Verbraucher.Cells(tbl_Verbraucher.Rows.Count, 7).End(xlUp).Row
'Bereich festlegen
With tbl_Verbraucher
Set rngB1 = .Range("A1:B" & iZeileMax)
Set rngB2 = .Range("C1:D" & iZeileMax)
Set rngB3 = .Range("E1:E" & iZeileMax)
Set rngB4 = .Range("K1:K" & iZeileMax)
Set rngB5 = .Range("O1:O" & iZeileMax)
Set rngBereich = Union(rngB1, rngB2, rngB3, rngB4, rngB5)
End With
With tbl_Verbrauchertyp
Range("A1").Select
rngBereich.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Verbraucher ").Range("A:E1"), CopyToRange:=Range( _
"Verbrauchertyp!Extract"), Unique:=True
End With
End Sub