Zellebreiche löschen und das möglichst schnell

Hallo zusammen,
auch wenn mir dieses Forum auch schon beim passiven Mitlesen bereits eine Menge geholfen hat, komme ich jetzt doch nicht mehr ohne konkretes Nachfragen weiter.
Ich möchte aus einer laaangen Liste von Messwerten Zellbereiche löschen, wenn in einer Spalte keine Werte stehen. Dafür habe ich mir ertsmal eine Hilfsspalte gebastelt, die mir dann das Kriterium liefert, nacg dem ich löschen möchte. Mein Code sieht bisher so aus:
Userbild

Er funktioniert auch soweit, nur wird alles sehr, sehr langsam, wenn tatsächlich alle Daten, die ich bearbeiten möchte, in der Tabelle stehen (mehrere zehntausend Zeilen).
Es wäre toll, wenn irgendwer noch eine zündende Idee hat, wie man das hinbekommt. Ich hab auch schon den Tip ausprobiert, es über "Duplikate löschen" zu versuchen, aber dann löscht es mir alles außer der ersten und letzten Zeile.
Vielen Dank und schönen Gruß

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
das schnelle löschen von Zeilen mit Bedingung geht tatsächlich am besten mit dem Duplikate-Entfernen, allerdings nach diesem Schema
1. die erste Zeile muss eine Überschriftenzeile sein
2. kennzeichne in einer Hilfsspalte alle Zeilen, die gelöscht werden müssen per Formel mit der Zahl 0, und alle Zeilen die stehen bleiben müssen mit der aktuellen Zeilennummer
3. schreibe in die Überschriftenzeile der Hilfsspalte die 0
4. Wende dann das Duplikate-Entfernen an, mit der Hilfsspalte als Kriterium und der Option "keine Überschrift"
5. Lösche die Hilfsspalte.
nach diesem Schema geht es eigentlich problemlos und auch bei größeren Datenmengen sehr schnell.
ansonsten muss man schauen, dass möglichst nicht jede Zelle einzeln löscht, sondern möglichst viele Zellen im Block.
dh der erste Schritt wäre mal, alle nebeneinander liegenden Zellen gemeinsam zu löschen:

Cells(t, 1).Resize(, 7).Delete Shift:=xlup

der nächste Step wäre, dass du die Liste nach der Hilfsspalte sortierst, so dass alle Zeilen mit 1 direkt untereinander stehen um so als Block gelöscht werden zu können:

Range("A:G").Sort Key1:=Range("G1"), order1:=xlascending, Header:=xlyes
Cells(2, 1).Resize(Worksheetfunction.CountIf(Columns(7), 1), 7).Delete

Gruß Daniel

Sub t() With Range("G2:G" & Cells(Rows.Count, 1).End(xlUp).Row) .FormulaR1C1 = "=IF(OR(RC[-4]="""",RC[-1]=""""),1,"""")" .Value = .Value If WorksheetFunction.Count(.Value) > 0 Then _ .SpecialCells(xlCellTypeConstants).EntireRow.Delete End With End Sub

Beliebteste Forumthreads (12 Monate)

Zellebreiche löschen und das möglichst schnell

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

192 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellebreiche löschen und das möglichst schnell

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

192 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread