VBA: Autofilter
20.06.2018 09:57:44
Fennek
Hallo,
in einem ersten Test ging es so:
Sub F_en()
'in Tabelle der Daten
'Spalten-Köpfe einfügen ###### beim 2. Run auskommentieren
Rows(1).EntireRow.Insert
Range("A1") = "T1"
Range("B1") = "T2"
lr = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1").CurrentRegion.Sort Range("B1"), xlAscending, , , , , , xlYes
With ActiveSheet.UsedRange
Cl = .SpecialCells(11).Column + 2
.Columns(2).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Cells(1, Cl), Unique:=True
For i = 2 To Cells(Rows.Count, Cl).End(xlUp).Row
With .Cells(1).CurrentRegion
.AutoFilter 2, Cells(i, Cl)
.Copy Sheets(2).Cells(1, 2 + 3 * (i - 1))
.AutoFilter
End With
Next i
End With
End Sub
Der Code ist nur minimal getestet.
mfg