Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen mit Null löschen

Forumthread: Zeilen mit Null löschen

Zeilen mit Null löschen
26.07.2015 18:44:20
lau
Hallo zusammen,
bräuchte ein Makro, der im Datenblatt 10 und Spalte E alle Zellen absucht und diejenigen die eine Null ausweisen, da soll die Zeile komplett gelöscht werden.
unteres Makro hängt sich auf und löscht nichts. Die Datei ist sehr groß.
Die Arbeitsmappe hesst "Portfolio" und das Makro habe ich im Modul 1 abgelegt. 
Sub Zeilen_loeschen()
Dim loeschen As Double
For loeschen = Worksheets(10).Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1
If Cells(loeschen, 1).Value = "" Then
Rows(loeschen).Delete
End If
Next loeschen
End Sub

Hat jmd. eine Idee warum das Makro nicht läuft?
Viele Grüße

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen mit Null löschen
26.07.2015 18:59:48
Michael
Hi lau,
versuch's mal damit: 
Sub Zeilen_loeschen()
Dim loeschen As Long, zeilen As Long
Worksheets(10).Select
zeilen = Range("E" & Rows.Count).End(xlUp).Row
For loeschen = zeilen To 1 Step -1
If Cells(loeschen, 5).Value = "" Then
Rows(loeschen).Delete
End If
Next loeschen
End Sub
Wenn das Ding in einem Modul steckt, löscht es im gerade aktiven Blatt, also solltest Du zunächst ins Blatt 10 wechseln.
In Deinem IF fragst Du die Spalte 1, also "A" ab, nicht die Spalte E.
Schöne Grüße,
Michael

Anzeige
AW: Zeilen mit Null löschen
26.07.2015 19:28:11
lau
Hallo Michael,
vielen Dank. Das Makro läuft.
Habe aber ein Performanceproblem.
Es müssen ca. 70000 Zeilen überprüft werden und das Makro braucht extrem lange.
Kann man das irgendwie bechleunigen?
Viele Grüße

AW: Zeilen mit Null löschen
26.07.2015 19:50:11
robert
Hi,
teste mal das.
Sub Leere()
Range("E1:E100000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Gruß
robert

Anzeige
AW: Zeilen mit Null löschen
26.07.2015 22:04:26
Daniel
Hi
wenns schnell gehen soll bei grossen Datenmengen, dann teste mal:
with Activesheet.Usedrange
with .columns(columns.count + 1)
.formulaR1C1 = "IF(RC5="""",0,row())"
.cells(1, 1).value = 0
.EntireRow.Removeduplicates .column, xlno
.ClearContents
End With
End with
Gruss Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Formelbezug aus Zelle
chris

Hallo Excelexperten,
habe eine frage und würde mich sehr über Hilfe freuen.
habe folgende Formel.
='R:\2006\Prüfungen\D 06 001\[MHU_001.xls]Deckblatt'!$A$1
diese Formel bezieht sich immer auf die aktuelle Zeile.
Wenn ich sie herunterziehe sollte es mir immer in die Formel de...
11.09.2008 14:19:13
Thread-ID: 1009123
7 Beiträge
Zellen mit bestimmtem Wert leeren
P.Mackes

ich möchte innerhalb einer gewählten range alle Zellen, die einen bestimmten Wert enthalten einfach leeren, also nicht löschen, sondern quasi den effekt, wenn man in die zelle geht und entfernen drückt
hat da jemand ein handliches makro parat?
mfg, Peter
03.12.2008 08:52:34
Thread-ID: 1029679
8 Beiträge
zellen mit gleicher Farbe leeren
serge

Hallo Leute
Ich suche eine Möglichkeit alle freien Zellen mit gleicher Farbe zu leeren!
Wer kennt einen Code dazu
Danke
Serge
11.12.2008 10:45:00
Thread-ID: 1031974
5 Beiträge
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Anzeige
Formel aus formatierten Zellen
Alfa

Hallo!
Ich habe eine Frage, ist es möglich mit Formaten Formel aufzubauen?
Beipiel:: Wenn(A1=schwarz; A2+A3) oder irgend so was.
Könnr Ihr mir einen Typ geben?
Grüße, Peter
16.07.2009 19:10:02
Thread-ID: 1089189
4 Beiträge
Zellen mit Wert 0 löschen
Mario

Hallo zusammen,
zellen mit wert = 0 zu löschen sollte eigentlich kein Problem sein, aber ich weiß bei untenstehendem Code nicht, wo ich dies einfügen soll. Wenn ich nach IsEmpty(rngZelle) noch ein Or not IsNull(rngZelle) hinsetze, dann verschiebt mir das Makro auch die leeren Zellen....und...
10.08.2009 10:42:10
Thread-ID: 1094641
4 Beiträge
bestimmte Zeilen mit Makro löschen
Mitbauer

Hallo zusamenn! Ich bin relativ neu in der excel-Welt und daher hört sich meine Frage bestimmt echt lächerlich an:
Ich möchte in einer Exceltabelle mit einem Makro bestimmte Zeilen bzw. Spalten löschen. Das Problem, die unbearbeiteten Tabellen können unterschiedlich lang sein und auch manch...
01.09.2009 13:23:45
Thread-ID: 1099819
9 Beiträge
Zahlen aus Zelle entfernen
Peter

Hallo,
ich muss 2 zellen miteinander vergleichen.
In Spalte AN:AN stehen Werte Bsp 312A706 dazu stehen in Spalte AO:AO 000030-002894-K03-12A-070-600
Jetzt muss geprüft werden ob das A aus AN mit dem A aus AO identisch ist. Wenn ja dann Gutaussage
siehe Bsp-Datei
https://www....
16.09.2009 20:34:31
Thread-ID: 1103353
10 Beiträge
Anzeige
Zeilen mit Leerzelle in Spalte E löschen
jo_cindy

Hi, habe wieder einen kleinen Fehler
Möchte alle Zeilen löschen, wo in Spalte E eine Leerzelle ist. Mein Makro läuft sich tot, wahrscheinlich, weil es sich nicht auf ein Datenende bezieht. Wie muss ich es umbauen, damit die Löschfunktion der Zeilen endet, wenn in Spalte A kein Wert mehr ste...
28.10.2009 13:36:59
Thread-ID: 1112798
4 Beiträge
Formel für Tabellennamen aus Zelle
Juergen

Hallo,
Ich habe da ein kleines Problem, und zwar:
Ich erstelle neue Tabellen über eine Mastertabelle, wobei eine Vorlage kopiert wird.
Dieser Tabellenname steht dann in der Mastertabelle B4 bis up.
Nun möchte ich aber in der Zelle D4 der Mastertabelle ein Wert aus der neuen Tabe...
19.01.2010 20:41:19
Thread-ID: 1131169
4 Beiträge
Zeilen mit bestimmten Kriterien Löschen
Stefan

Hallo zusammen,
in Spalet B habe ich chaotisch die Bezeichnungen SO1, SO2 und SO3 in mehreren tausend Zeilen stehen.
Ich benötige allerdings nur die Zeilen mit dem Inhalt SO1, die restlichen Zeilen mit SO2 und SO3 in Spalte B müssen komplett gelöscht werden.
Dies könnte ich quasi au...
20.01.2010 09:31:34
Thread-ID: 1131220
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige