Zeile löschen wenn 2 bestimmte Spalten leer sind

Hallo!
Ich habe aktuell eine Liste mit über 200.000 Zeilen.
Im Großteil der Zeilen ist in den Spalten A und B (manchmal auch in beiden) ein Inhalt.
Ich möchte nun alle Zeilen löschen, in denen in Spalte A und B nichts steht.
Würde ich das nur mit Spalte A machen, würde mein Code so aussehen:


'Alle Zeilen löschen, bei denen Spalte A leer ist
a = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:A" & a).Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Nachdem ich aber nur Zeilen löschen möchte, in denen A UND B leer sind, stoße ich an meine Grenzen.
Ich habe probeweise das Range("A1:A" & a) durch Range ("A1:B" & a) ersetzt, was aber leider nicht funktioniert.
Könnt ihr mir bitte helfen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
zunächst einmal solltst du deine Excelversion richtig angeben.
Excel 2003 hat maximal 65536 Zeilen, in sofern muss eine deiner Angaben falsch sein.
da mit neuen Excelversionen oft auch neue Funktionen bereit gestellt werden, wäre es schon wichtig zu wissen, was Sache ist.
probier mal:
Intersect(Columns(1).SpecialCells(xlcelltypeblanks).EntireRow, Columns(2).SpecialCells(xlcelltypeblanks).EntireRow).EntireRow.Delete
Hilfreich wäre, die Tabelle vorher nach Spalte A und Spalte B sortiert, so das die zu löschenden Zeilen eine lückenlos zusammenhängenden Zellblock bilden, das vereinfacht Excel die Arbeit beim Löschen.
sollte die Angabe mit den 200.000 Zeilen richtig sein und du ne Excelversion mit 2007 und höher hast, würde auch folgendes gehen:
1. füge in die erste freie Spalte am Tabellenende von Zeile 2 bis zur letzen gefüllten Zeile folgende Formel ein:
=Wenn(Und(A2="";B2="");0;Zeile())
2. Schreibe in die erste Zeile dieser Hilfsspalte die 0
3. wende auf die ganze Tabelle die Funktion DATEN - DATENTOOLS - DUPLIAKTE ENTFERNEN an, mit der Hilfsspalte als Kriterum und der Option "keine Überschrift"
4. lösche die Hilfsspalte wieder
das ist auch sehr schnell, verarbeitet grösste Datenmengen und braucht auch keine Sortierung.
da es ein einfacher Ablauf von Excelanweisungen ist (Formel einfügen, Menüfunktion ausführen) kann man das gut mit dem Recorder aufzeichnen, wenn man es als Code braucht.
Gruß Daniel

Dim AnzZeilen As Long AnzZeilen = Worksheets("gestrichen").UsedRange.Rows.Count 'Zeilen zählen und die Zahl in _ Variable schreiben Range("D2", Cells(AnzZeilen, 4)).FormulaR1C1 = "=IF(AND(RC[-3]="""",RC[-2]=""""),0,ROW())" ' _ Formel in alle beschrifteten Zeilen eintragen Range("A1", Cells(AnzZeilen, 4)).Select ActiveSheet.Range("A2", Cells(AnzZeilen, 4)).RemoveDuplicates Columns:=4, Header:= _ xlNo Columns("D:D").Delete

Sub Leer() Dim RR As Double Dim Rng With ActiveSheet Set Rng = .Range("A:B") RR = Rng.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile aus A:B Rng.AutoFilter Rng.AutoFilter Field:=1, Criteria1:="=" Rng.AutoFilter Field:=2, Criteria1:="=" .Rows("2:" & RR).Delete Shift:=xlUp .AutoFilterMode = False End With End Sub

Beliebteste Forumthreads (12 Monate)

Zeile löschen wenn 2 bestimmte Spalten leer sind

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

324 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile löschen wenn 2 bestimmte Spalten leer sind

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

324 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread