Hallo Officer!
HAbe nochmal geschaut und gebastelt. Habe jetzt eine Variante, mit der du festlegen kannst, in welcher Zeile der Filter ist und ab der Zeile danach alle gefilterten Werte kopieren, selectieren etc. kannst. ZUdem kannst du über den Offset und Resize auch noch die Spaltenbreite festlegen. ALso praktsch eine Range mit dem Filterergebnis auwählen.
Einfach bei Filter die Zeile des Filters eingeben. Und wie gesagt bei Offset die 0 Ändern. Mit 0 startet er bei A je größer desto weiter nach rechts. Bei Resize kannst du dann angeben wieviele Spalten.
ICh weiß nicht, ob das dir hilft aber war eine schöne Variante. In der Variante unten wird nur selectiert. VG
Dim filter As Long
filter = 7 'die Zeile in der der AUtofilter ist
ActiveSheet.Range("A7").CurrentRegion.Offset(filter - ActiveSheet.UsedRange.Row + 1, 0).Resize(ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 - filter, 10).Select
|