Microsoft Excel

Herbers Excel/VBA-Archiv

Makro Filtern Kopieren

Betrifft: Makro Filtern Kopieren von: Wolfgang
Geschrieben am: 25.08.2004 10:41:07

Hallo zusammen,

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
  


Betrifft: AW: Makro Filtern Kopieren von: Ulf
Geschrieben am: 25.08.2004 10:48:16

Criteria1:="<>"

ungleich was?

Ulf


  


Betrifft: AW: Makro Filtern Kopieren von: Wolfgang
Geschrieben am: 25.08.2004 10:56:27

Hallo Ulf,

dieses Kriterium hat mir der Rekorder ausgespuckt, es zielt darauf ab, alle NICHT-Leeren Daten anzuzeigen.

Gruß
wolfgang


  


Betrifft: AW: Makro Filtern Kopieren von: Ulf
Geschrieben am: 25.08.2004 11:16:55

Lad mal ein Beispiel hoch.

Ulf


  


Betrifft: AW: Makro Filtern Kopieren von: wolfgang
Geschrieben am: 25.08.2004 11:38:21

Hab das ganze ein wenig abstrakt halten müssen, da ich eine bereits bestehende Tabelle überarbeiten soll, die ich dir nicht schicken kann.

https://www.herber.de/bbs/user/10077.xls

Ich hoffe es hilft trotzdem...


wolfgang


  


Betrifft: AW: Makro Filtern Kopieren von: Ulf
Geschrieben am: 25.08.2004 11:59:48

https://www.herber.de/bbs/user/10083.xls

Ulf


  


Betrifft: Funktioniert einwandfrei. DANKE !!!! o.T. von: wolfgang
Geschrieben am: 25.08.2004 12:04:18




 

Beiträge aus den Excel-Beispielen zum Thema "Makro Filtern Kopieren"