Herbers Excel/VBA-Archiv

Makro Filtern Kopieren

• Makro Filtern Kopieren von Wolfgang vom 25.08.2004 10:41:07
• AW: Makro Filtern Kopieren - von Ulf am 25.08.2004 10:48:16
  • AW: Makro Filtern Kopieren - von Wolfgang am 25.08.2004 10:56:27
    • AW: Makro Filtern Kopieren - von Ulf am 25.08.2004 11:16:55
      • AW: Makro Filtern Kopieren - von wolfgang am 25.08.2004 11:38:21
        • AW: Makro Filtern Kopieren - von Ulf am 25.08.2004 11:59:48
          • Funktioniert einwandfrei. DANKE !!!! o.T. - von wolfgang am 25.08.2004 12:04:18

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"