Filtern funktioniert nicht
26.08.2022 11:01:32
Marc
Ich brauche nochmals eure Hilfe. Ich filtere einen Bereich und kopiere dann einen gewisse Range. Wenn ich 2 Filterkriterien mitgebe, dann kopiert er alles richtig. Wenn ich aber nur ein Filterkriterium gebe, dann wird ganz falsch kopiert.
Woran könnte das wohl liegen?
Vielen Dank
Marc
Dim chkRng As Range
''''Daten filtern
'Sheets("daten").Range("$A$5:$AU$10000").AutoFilter Field:=32, Criteria1:="=" & Sheets("Hilfstabelle_Diagramm").Range("AU3").Value, Operator:=xlAnd
Sheets("daten").Range("$A$5:$AU$10000").AutoFilter Field:=47, Criteria1:="=" & Sheets("Hilfstabelle_Diagramm").Range("BA2").Value, Operator:=xlAnd
Set chkRng = Sheets("daten").Range("A5:AD1000")
chkRng.SpecialCells(xlCellTypeVisible).Copy Worksheets("Hilfstabelle").Cells(9, 11)
Anzeige