Autofilter
Christian
ich habe ein Problem mit meinem Autofilter. Anbei erstmal der Quellcode:
Private Sub Beratung_Click()
Sheets("Januar A.R.").Range("1:1").Autofilter _
Field:=3, Criteria1:="Beratung", _
Operator:=xlAnd, _
Field:=21, Criteria1:="Firma xyz"
Worksheets("Januar A.R.").Rows("2:33").Copy
Worksheets("Übersicht").Range("A7").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets("Januar A.R.").Range("1:1").Autofilter
End Sub
Private Sub Beratung2_Click()
Sheets("Januar R.S.").Range("1:1").Autofilter _
Field:=3, Criteria1:="Beratung", _
Field:=21, Criteria1:="Firma xyz"
Worksheets("Januar R.S.").Rows("2:33").Copy
Worksheets("Übersicht").Range("A38").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Worksheets("Januar R.S.").Range("1:1").Autofilter
End Sub
1. Problem:
Der Filter wird zwar aktiviert, aber beide Kriterien ("Beratung, Firma xyz) ziehen nicht. Ich weiss allerdings nicht warum, da der Code eigentlich stimmen sollte.
2. Problem:
Ich möchte damit 2 verschiedene Tabellen nach ein und denselben Kriterien filtern und diese Daten dann in einem neuen Sheet (in einem bestimmten Bereich) zusammenführen. Wir ihr seht versuch ich's im Moment ziemlich stümperhaft, indem ich die Werte der erste Tabelle ab Zeile 7 und die der zweiten Tabelle ab Zelle38 einfüge....dann hab ich allerdings oft ne Riesenlücke. Schöner wär es wenn Exel mir die Daten in die nächste freie Zeile kopiert...leider weiss ich nicht wie das geht. Hat jemand von euch eine Idee?
Gruss,
Christian