Zeilenzahl nach Filter, Copy und Paste
30.04.2021 11:48:49
W
ich fülle eine neue Tabelle mit WorksheetFunction.Transpose(Lines).
Danach ermittle ich die Anzahl der Zeilen. Dann setze ich einen Filter auf 2 Begriffe in Spalte 1, weil ich nur bestimmte Daten übernehmen möchte. Mit "Copy" und "Paste" übertrage ich die gewünschten Daten in ein leeres Blatt. Doch danach ist dort die Zeilenzahl utopisch hoch.
Anfangs wurden 1745 Zeilen ermittelt, nach dem Paste 1047658.
Was mache ich falsch?
Hier die ausgeführten Befehle:
MaxRows = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
ActiveSheet.Range(Cells(1, 1), Cells(MaxRows, 1)).AutoFilter Field:=1, _
Criteria1:="=S:*", _
Operator:=xlOr, _
Criteria2:="=GRPN*"
Cells.Select
Selection.Copy ' sichtbaren Zeilen kopieren
Sheets("Bestand").Select
ActiveSheet.Paste
MaxRows = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
Gruß Werner