Hallo Miri,
Sub Filter_kopieren()
Dim loLetzte As Long
With Worksheets("Tabelle1") 'Blattname anpassen
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range(.Cells(4, 1), .Cells(loLetzte, 5)).SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Tabelle2").Range("A1") 'Blattname/Zieladresse anpassen
End With
End Sub
Gruß Werner
|