Hallo liebe Community,
ich schlage mich mit einem Problem dessen Lösung ich zwar in Einzelschritten hier im Forum bereits gefunden haben, bisher aber nicht kombinieren konnte...
Ich habe 2 Tabelle mit jeweils 22 Spalten und bis zu 10.000 Zeilen welche ich nach verschiedenen Kriterien filtern muss. Insgesamt setze ich auf 4 Spalten jeweils einen Autofilter an. Nach dem Filtern werden aus den beiden Liste einige der 22 Spalte in ein separates Register kopiert. Soweit alles machbar. Die Reihenfolge der Spalten ist jedoch leider nicht immer die Gleiche, wenn einer meiner Kollegen die Daten importiert.
Die Passage mit dem suchen und kopieren der Spalten, trotz unterschiedlicher Reihenfolgen, nach dem Filtern habe ich bereits gelöst
Meine Lösung:
Sheets("Liste1").Select
Set rng = Sheets("Liste1").Range("1:1").Find("Währung")
Range(rng.Address).Select
ActiveCell.Offset(1, 0).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Ergebnis").Select
Range("I2").Select
ActiveSheet.Paste
Mein bisherige Ansatz für den vorher anzuwendenden Filter bezieht sich jedoch auf eine gleichbleibende Position des zu filternden Kriteriums.
Beispiel zum filtern der Zeilen unter der Überschrift "Status" mit der Eigenschaft ungleich Ausgeführt
Sheets("Liste1").Select
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$BR$10000").AutoFilter Field:=20, Criteria1:= _
"Ausgeführt", Operator:=xlAnd
Wie kann ich den Filter variable auf die Position der Überschrift ansetzen?
Vielen Dank schonmal für eure Hilfe
Grüße
Markus