Sub FilterBereichKopie() Worksheets(1).Range("A1:A" & Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter Field:=1, Criteria1:=80 Worksheets(1).AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Worksheets(2).Range("A1") Worksheets(1).Range("A3").AutoFilter End Sub
58.4k Fragen
249k Antworten
7k Nutzer