Thema Autofilten via Makro - schnellere Methoden?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Dim i As Long Dim a As Long For a = 1 To ThisWorkbook.Worksheets.Count With Worksheets(a) For i = .Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 If .Cells(i, 1).Value = "" Then .Rows(i).Delete shift:=xlUp End If Next i End With Next a End Sub

Hallo Thorsten!

Also es sind 45000 Zeilen insgesamt. Davon von Spalte A - R Formeln, Spalte S sind dann die Werte drin die gefiltert werden sollen.
Spalte S enthält ca. 44850 Leere Zellen und ca. 150 gefüllte. Diese 150 Werte benötige ich. Wenn ich nun via Makro einen Filter setze, dauert das ca. 6 Sekunden bis die Werte gefiltert sind.

Thorsten fragt:

Und angenommen, es würden bei der zu filternden Spalte nur die Werten ohne Formel kopiert und in einem neuen Datenblatt eingefügt, und dort gefiltert - was ist dann mit den Werten aus den anderen Spalten des eigentlichen Blattes?

Stimmt Thorsten, die anderen Spalten sollten auch noch da sein nach der Filterung. Also Spalte S alleine reicht nicht im neuen Datenblatt, müsste alles kopiert werden von Spalte A bis S allerdings ohne Formel wäre möglich, also nur die Werte.

- die gefilterten Werte werden in ein andere Datei, eine Auswertungsdatei übertragen via Makro (diese ist auch geöffnet, aber nur 500 kb groß). Daher kann in diesem speziellen Fall eigentlich ziemlich unkonventionelle Filtermethoden benutzt werden (wie eben das kopieren nur von Spalte A bis S ungefiltert in eine neue Datei und dann hier Filtern. Das geht natürlich schneller, muss ich noch ausprobieren).

Ich glaube hier hatte mal jemand im Forum gemeint mit sortieren kann Excel schneller arbeiten als mit dem Filter via Makro. Lieben Gruß

Hi Frank,

...andere Ideen vorgeschlagen werden, hier nun noch meine :-)

Userbild

ich HAB MAL ne Bsp-Datei mit sogar über 45.000 Zeilen erstellt - auch, obwohl ich es gar nicht mag, Bsp-Dateien zu erstellen, weil meist zu wenig Infos vom Fragenden (von Zell-Formaten hast du im Erst-Beitrag gar nix erwähnt!)

Aber ok, sogar meine Bsp-Datei, nur 1 Tabellenblatt, ohne Formate, ist trotzdem über 8MB groß - und deswegen, auch mit ZIP, hier nicht uploadbar.

Nun denn, wie du siehst, sind auch die Spalten A bis S mit Formeln "gefüllt".
Und ja, hier den Autofilter - auf Spalte S mit Anzeige von nur "x"-Einträgen - einzusetzen, dauert sogar 10 Sekunden!

Somit hab ich diesen Code entwickelt:



Sub sbCopyValIntoNewTempSheet()



    Sheets.Add after:=Sheets(Sheets.Count)

    ActiveSheet.Name = "temp"



        With Sheets("Tabelle1") 'wenn Blattname im Original nicht "Tabelle1", dann hier anpassen

            .Range("A1:S" & .Cells(.Rows.Count, 1).End(xlUp).Row).Copy

                With Range("A1")

                    .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

                    .AutoFilter

                End With

            Application.CutCopyMode = False

        End With



        Range("A1:S" & Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter Field:=19, Criteria1:=">"



End Sub

1. es wird ans Ende aller Blätter ein neues Blatt hinzugefügt und erhält den Namen "temp"
2. aus meiner Datei, Blattname "Tabelle 1", werden alle Zellen im Bereich A1:S + letzte Zeile in Spalte A kopiert
3. im neuen Blatt "temp" werden die zuvor kopierten Zellen nur als Werte eingefügt
4. im neuen Blatt "temp" wird der Autofilter eingeschaltet
5. in Spalte S wird so gefiltert, dass nur Zeilen mit "x" in Spalte S angezeigt werden (Criteria:= ">" hab ich vom Rekorder übernommen; bedeutet wohl: "NUR Zellen MIT Inhalt"

Jetzt die Zeit, bis Filtern fertig ist = mit meinem Kopf nicht messbar, so schnell! :-)....und hier noch Start- und Endzeit für filtern zu programmieren, hatt ich keine Lust :-)

Hilfts?

Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

Thema Autofilten via Makro - schnellere Methoden?

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Thema Autofilten via Makro - schnellere Methoden?

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread