Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Filter

Filter
25.11.2006 18:46:13
Thomas
Hallo Forum,
ich habe folgendes Problem: Im möchte aus Tabellenblatt 1 die mit „x“ gekennzeichneten Namen ohne Leerzeile in Tabellenblatt 2 und anschließend nach Datum sortiert in Tabellenblatt 3 übertragen ( siehe https://www.herber.de/bbs/user/38505.xls ).
Für Eure Hilfe wäre ich Euch sehr dankbar, ich plag´ mich schon den ganzen Tag, leider hat keiner meiner Versuche funktioniert ...
LG, Thomas

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filter
26.11.2006 10:20:23
Coach
Hallo Thomas,
hier die Logik, bitte Spalten für Filter (hier 3) und Sortierung (hier B2) anpassen:
Worksheets("Tabelle1").Activate
ActiveSheet.UsedRange.AutoFilter
ActiveSheet.UsedRange.AutoFilter Field:=3, Criteria1:="X"
ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Copy Worksheets("Tabelle2").Range("A1")
ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Copy Worksheets("Tabelle3").Range("A1")
Worksheets("Tabelle3").Activate
ActiveSheet.UsedRange.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Gruß Coach
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige