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

Hallo zusammen,
vielen Dank für eure Hilfe und eure Lösungsansätze. Ich möchte euch kurz Feedback geben, damit der Nächste, der auf diesen Thread stößt, auch eine Lösung findet:
Da in meiner Datentabelle in Spalte "Source" nur zwei Ausprägungen vorkommen können, stelle ich über "Sortieren" einen zusammenhängenden Bereich her. Dann ermittle ich die erste Zeile, in welcher der zu löschende String vorkommt und lösche alle Zeilen bis zur Letzten:

'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

Hinweis: vFirstRowDelete ist als Variant dimensioniert, da bei Integer ein Typenfehler entstehen würde, wenn der String nicht gefunden wird. Ich lasse also bewusst zu, dass die Variable einen Fehler enthalten kann (der aber nicht den Code stoppt) und fange ihn mit dem IF ab. Das erspart mir eine (aus meiner Sicht) unübersichtliche "On Error"-Sektion.

Mehrere Zeilen in Datentabelle löschen

Forumthread: Mehrere Zeilen in Datentabelle löschen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial