Makro Filtern Kopieren
25.08.2004 10:41:07
Wolfgang
hab mir das Makro "FilternKopieren()" von Herbers Seite geholt und ein wenig an meine Bedürfnisse angepasst.
Sub FilternKopieren()
Dim wkb As Workbook
Set wkb = ActiveWorkbook
Application.ScreenUpdating = False
Rows("5:5").AutoFilter Field:=24, Criteria1:="<>"
Rows("5:5").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
Workbooks.Add
ActiveSheet.Paste Destination:=Range("A1")
Columns.AutoFit
wkb.Activate
ActiveSheet.AutoFilterMode = False
Application.CutCopyMode = False
ActiveCell.Select
End Sub
Aber leider wird der angesprochene Filter nicht aktiv und zeigt weiterhin alle Datensätze. Ich hab das Ganze mal mit dem Rekorder aufgezeichnet, und da funktioniert es wunderbar, aber halt mit dem ganzen Select und Zeugs was der Rekorder halt so mitschreibt.
Also vielleicht kann mir jemand von euch einen kleinen Tip geben woran es fehlt...
Vielen Dank schon mal !
wolfgang
Anzeige