Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: zeile loeschen wenn in kein eintrag ein spalte c

zeile loeschen wenn in kein eintrag ein spalte c
02.11.2007 23:06:08
Bunge
Hallo Forums-Mitglieder!
Folgendes:
Ich will in dieser Datei alle Zeilen loeschen, bei denen in Spalte C kein Eintrag vorhanden ist:
https://www.herber.de/bbs/user/47359.xls
Der Makro soll allgemein sein, das Beispiel ist gekuerzt, die Datei, die ich bearbeiten will, ist ca. 8000 Zeilen lang.
Ueber Vorschlaege freue ich mich sehr,
John.

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zeile loeschen wenn in kein eintrag ein spalte c
02.11.2007 23:25:00
Chris
Servus,

Sub Allgemein_Löschen ()
Dim lngLetzte As Long, lngZeile As Long
If Range("C65536")  "" Then
lngLetzte = 65536
Else
lngLetzte = Cells(Rows.Count, 3).End(xlUp).Row
End if
For lngZeile = lngLetzte To 1 Step -1
If Cells(lngZeile, 3) = "" Then
Cells(lngZeile, 3).EntireRow.Delete
End if
Next lngZeile
End Sub


Gruß
Chris

Anzeige
Zeilen loeschen ohne Schleife
02.11.2007 23:29:58
Josef
Hallo John,
ohne Schleife.
Sub ZeilenLoeschen()
Dim rng As Range

On Error Resume Next

Set rng = Columns("C:C").SpecialCells(xlCellTypeBlanks)

If Not rng Is Nothing Then rng.EntireRow.Delete

Set rng = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Zeilen loeschen ohne Schleife
03.11.2007 02:08:02
Daniel
Hi
bei grösseren Datenmengen sollte man, wenn möglich, vor dem Löschen noch nach Spalte C sortieren, so das die zu löschenden Zeilen als ein zusammenängender Zellblock direkt untereinander stehen.
das Reduziert die Zeit zum Löschen nach Sepps Methode nochmal deutlich.
Gruß, Daniel
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige