VBA: Spezialfilter variabel
13.08.2014 11:24:37
Pietro
Ich habe für den Spezialfilter folgenden Code:
Sheets("Tabelle1").Range("A2:J20").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Tabelle2").Range("B2:K5"), CopyToRange:=Range( _
"A2:I7"), Unique:=False
Ich möchte nun die Range-Bereiche "Range("A2:J20")", "Range("B2:K5")" und "Range("A2:I7")" variabler gestalten. Dazu möchte ich diese mit Cells erweitern (Beispiel "Range("A2:J20")" mit "Range(Cells(2, 1), Cells(20, 10))" ersetzen. Leider geht dies nicht!
Ziel der ganzen Übung ist: Listenbereich, Kriterienbereich und Ausgabebereich passen sich mittels letzter benutzter Zeile und Spalte automatisch den vorhandenen Daten an.
Gibt es hierzu eine Lösung?
Besten Dank.
Pietro