Mehrere Zeilen in Datentabelle löschen

Hallo,
ich habe die Datentabellen bzw. "intelligenten Tabellen" (wie ist der richtige Ausdruck?) in Verbindung mit VBA Programmierung lieben gelernt, weil der Zellbezug nicht mehr so relevant ist und User auch mal eine Spalte hinzufügen können, ohne dass der Code gleich crasht.
Nun habe ich eine sehr lange Datentabelle und möchte bestimmte Zeilen daraus löschen. Zum Beispiel: Lösche alle Zeilen, auf die zutrifft: Spalte "Source" ist ungleich "Planned on assumptions"
Diese Seite (https://www.thespreadsheetguru.com/blog/2014/6/20/the-vba-guide-to-listobject-excel-tables) ist mir bekannt, hilft mir aber nur bedingt weiter. Denn wenn ich die Tabelle Zeile für Zeile durchlaufe und einzeln lösche, dauert es ewig. Schöner wäre, ich könnte zunächst alle Zeilen der DataBodyRange initialisieren und dann in einem Schritt löschen. Im Grunde ist mein Ziel dieses SQL-Statement:
DELETE FROM tbl_DB
WHERE Source='Planned on assumptions';
Ich habe aktuell ein Makro geschrieben, das immerhin zusammenhängende Bereiche erkennt und dann auf diese Weise viele Zeilen auf einmal löscht:
tbl_DB.DataBodyRange.Rows(iFirstRowDelete & ":" & iLastRowDelete).Delete
Aber wenn der User die Tabelle wild sortiert, bleibt von den zusammenhängenden Bereichen nicht mehr viel übrig und man ist performanceseitig schnell wieder an der Stelle, wo jede Zeile einzeln gelöscht wird.
Wahrscheinlich stehe ich nur auf dem Schlauch und kenne nicht den Syntax, um einen Bereich innerhalb des Databodys mit VBA anzusprechen. Ganze Zeilen im Excelblatt zu löschen kommt leider nicht infrage. Dann hätte ich den Zellbezug zum Excelblatt ja wieder, den ich gerade vermeiden will.
Danke im Voraus. Ich bin sicher, ihr könnt mir helfen!
VG Philipp

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo lupo1,
mit den zwei Funktionen hatte ich mich kürzlich auch auseinander gesetzt. Aber ich fürchte, das hilft mir in diesem Fall nicht. Denn ich kann ja nicht einfach über die bestehenden Daten drüber kopieren, sondern muss zunächst alles Veraltete heraus löschen und hänge dann die aktualisierten Daten unten dran.
So sieht bspw. die Datentabelle aus:
Zeile 1: Planned on assumptions
Zeile 2: Planned on assumptions
Zeile 3: Planned on manual input
Zeile 4: Planned on assumption
usw.
Zeilen 1,2 und 4 müssen gelöscht werden. Zeile 3 soll bleiben. Mit "Drüberkopieren" müsste ich mindestens den Umweg über eine Sortierung gehen. Das wäre eine Alternative, aber irgendwie ist das auch drum herum geschummelt.
Den Schreibprozess mache ich im VBA-Code bereits ähnlich wie deine Idee mit der FILTER-Funktion. Ich schreibe in VBA alles in ein Array und füge das zum Schluss in die letzte Zeile der Datentabelle. Somit habe ich nur einen einzigen Schreibvorgang im Excelsheet, was wahnsinnig schnell ist. Das muss ich nicht über die FILTER-Funktion optimieren. Nur der Bereinigungsvorgang ist sehr langsam.
Hast du für die Bereinigung noch eine andere Idee?
PS: "Die Syntax" klingt in der Tat besser ;-). Danke!

ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=4, Criteria1:= _ "Planned on assumptions", Operator:=xlAnd ActiveSheet.ListObjects("Tabelle1").DataBodyRange.EntireRow.Delete ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=4

'Sort by source tbl_DB.Sort.SortFields.Clear tbl_DB.Sort.SortFields.Add2 _ Key:=tbl_DB.ListColumns("Source").Range, _ SortOn:=xlSortOnValues, _ Order:=xlDescending, _ DataOption:=xlSortTextAsNumbers tbl_DB.Sort.Apply 'Initialise first row including "Planned on assumptions" vFirstRowDelete = Application.Match("Planned on assumptions", tbl_DB.ListColumns("Source"). _ DataBodyRange, 0) 'Delete range until end If Not IsError(vFirstRowDelete) Then tbl_DB.DataBodyRange.Rows(vFirstRowDelete & ":" & tbl_DB.ListRows.Count).Delete End If

Beliebteste Forumthreads (12 Monate)

Mehrere Zeilen in Datentabelle löschen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

126 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mehrere Zeilen in Datentabelle löschen

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

126 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread