Live-Forum - Die aktuellen Beiträge
Datum
Titel
02.10.2025 16:19:53
Explodierende ActiveX-Steuerelemente
02.10.2025 15:16:56
Tabelle mit mehrere Worksheet_Change(ByVal Target As Range)
02.10.2025 10:43:57
fortlaufende Werte
02.10.2025 10:42:49
mehrere Tabellenblätter vergleichen + Gemeinsamkeiten finden
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile löschen, wenn zelle leer

Forumthread: Zeile löschen, wenn zelle leer

Zeile löschen, wenn zelle leer
24.01.2008 14:26:00
Jonatan
Hallo,
ich würde gerne einen VBACode für folgendes Ereignis schreiben.
Wenn in Spalte A eine Zelle leer ist, dann soll die ganze Zeile gelöscht werden, in der die leere Zelle ist.
Also: Wenn z.B. a5 eine leere Zelle ist, dann soll die ganze Zeile fünf gelöscht werden und nach oben verschoben werden.
Könnt ihr mir vielleicht weiter helfen?
Viele Dank schon mal
Gruß Jonatan

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeile löschen, wenn zelle leer
24.01.2008 14:31:00
Waven
Hallo Jonatan
Du kannst dazu folgendes Makro verwenden.

Sub Zeilen_loeschen()
Dim loeschen As Double
For loeschen = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(loeschen, 1).Value = "" Then
Rows(loeschen).Delete
End If
Next loeschen
End Sub


Gruss
Waven

Anzeige
AW: Zeile löschen, wenn zelle leer
24.01.2008 14:32:00
Jonatan
Hallo Waven,
sehr cool!!!
funktioniert toll.
Vielen Dank
Gruß Jonatan

AW: Zeile löschen, wenn zelle leer
24.01.2008 14:38:32
Peter
Hallo Jonatan,
so sollte es gehen:
Option Explicit

Public Sub LeereRaus()
Dim WkSh     As Worksheet
Dim lLetzte  As Long
Dim lZeile   As Long
Application.ScreenUpdating = False
Set WkSh = Worksheets("Tabelle1")  '


Gruß Peter

Anzeige
AW: Zeile löschen, wenn zelle leer
24.01.2008 14:39:51
Jonatan
Hallo Peter,
vielen Dank.
Funktioniert auch super.
Gruß Jonatan

AW: Zeile löschen, wenn zelle leer
24.01.2008 14:40:09
Peter
Hallo Jonatan,
eine kleine Korrektur For lZeile = lLetzte To 1 Step -1
Gruß Peter

AW: Zeile löschen, wenn zelle leer
25.01.2008 02:20:00
Daniel
Hi
warum immer so aufwendigen und vorallem langsamen Code?
wenn die Zelle wirklich leer ist (also keine Formel mit dem Ergebnis ""), dann gehts auch mit diesem Code:

Sub Makro2()
If WorksheetFunction.CountIf(Range("a:a"), "") > 0 Then _
Range("A:A").SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp
End Sub


wenns grosse Datenmengen sind und viele Zeilen gelöscht werden sollen, ist das hier zu empfehlen
die bisher gezeigten Schleifen kannst du dann vergessen.


Sub Makro3()
Columns(1).Insert
With Range("A1:A" & Cells(Rows.Count, 2).End(xlUp).Row)
.Formula = "=IF(RC[1]="""",true,Row())"
.Formula = .Value
.CurrentRegion.Sort key1:=Cells(1, 1), Order1:=xlAscending, header:=xlNo
.SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
End With
Columns(1).Delete
End Sub


Gruss, Daniel

Anzeige
;

Forumthreads zu verwandten Themen

Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
VBA- Autofilter - leere Zeilen löschen
Asits

Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!
17.09.2008 08:48:00
Thread-ID: 1010225
5 Beiträge
Anzeige
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
SowDataForm, Fehler wenn Zeile 1 leer
Reinhard

Hallo Wissende,
der Fehler 1004, "ShowDataForm-Methode des Worksheet-Objekts konnte zu nicht ausgeführt werden" kommt nicht wenn A1 die erste Zelle der Tabelle ist. Bei A9 als erste Zelle kommt der Fehler.
Was kann ich dagegen tun?
Microsoft empfiehlt auf http://support.microsoft....
06.11.2008 11:19:00
Thread-ID: 1022202
3 Beiträge
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Anzeige
Kopieren von Nichtleeren Zellen per Formel
Nichtleeren

Moin,
auf der Arbeit soll ich eine Tabelle anpassen:
In Tabellenblatt1 ist eine Matrix M6:P109, in einigen Zeilen (Artikelnummern in loser Reihenfolge) stehen Werte, (die Artikel, die im Bürobestand fehlen) in den meisten nicht.
Die Zeilen, in denen Werte stehen, sollen nun in Tabel...
10.01.2009 20:43:46
Thread-ID: 1038525
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Zeilen in Excel löschen, wenn Zellen leer sind

Schritt-für-Schritt-Anleitung

Um eine Zeile in Excel zu löschen, wenn eine Zelle leer ist, kannst du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Excel öffnen: Starte Excel und öffne die Datei, in der du die leeren Zeilen löschen möchtest.

  2. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Neues Modul erstellen: Klicke mit der rechten Maustaste auf "VBAProject (deineDatei.xlsm)" und wähle „Einfügen“ > „Modul“.

  4. Code einfügen: Kopiere den folgenden VBA-Code in das Modul:

    Sub Zeilen_loeschen()
   Dim loeschen As Double
   For loeschen = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
       If Cells(loeschen, 1).Value = "" Then
           Rows(loeschen).Delete
       End If
   Next loeschen
End Sub

  5. Makro ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle Zeilen_loeschen aus und klicke auf „Ausführen“.

Jetzt werden alle Zeilen gelöscht, in denen die Zelle in Spalte A leer ist.

Häufige Fehler und Lösungen

  • Fehler: Das Makro löscht nicht die richtigen Zeilen.

    • Lösung: Stelle sicher, dass du die richtige Spalte in der Cells-Funktion verwendest. Zum Beispiel, wenn du in Spalte B prüfen möchtest, ändere Cells(loeschen, 1) in Cells(loeschen, 2).

  • Fehler: Der VBA-Editor öffnet sich nicht.

    • Lösung: Überprüfe, ob du die richtigen Berechtigungen hast, um Makros auszuführen. Stelle sicher, dass die Datei im .xlsm-Format gespeichert ist.

Alternative Methoden

Wenn du keine VBA-Lösungen verwenden möchtest, kannst du auch Formeln verwenden, um leere Zeilen in Excel zu löschen. Eine Möglichkeit ist die Verwendung von Filter und Sortierung:

  1. Daten filtern: Wähle deine Daten aus und gehe zu „Daten“ > „Filter“.
  2. Leere Zellen filtern: Klicke auf den Dropdown-Pfeil in der Spalte und wähle „Leere Zellen“ aus.
  3. Leere Zeilen löschen: Markiere die gefilterten Zeilen, klicke mit der rechten Maustaste und wähle „Zeile löschen“.
  4. Filter zurücksetzen: Deaktiviere den Filter, um alle verbleibenden Daten anzuzeigen.

Praktische Beispiele

  • Beispiel 1: Wenn du eine Tabelle mit den Spalten "Name", "Alter" und "Stadt" hast und alle Zeilen ohne Namen löschen möchtest, benutze das oben genannte VBA-Makro. Es wird alle Zeilen entfernen, wo die Zelle in der Spalte "Name" leer ist.

  • Beispiel 2: Mit der Formel =WENN(A1="";"";A1) kannst du in einer neuen Spalte die leeren Zellen identifizieren und die Daten dann nach dieser neuen Spalte sortieren, um die leeren Zeilen zu löschen.

Tipps für Profis

  • Nutze das xlCellTypeBlanks-Objekt für eine schnellere Lösung, wenn du viele leere Zeilen in einer großen Datenmenge hast. Beispiel:

    Sub LeereZeilenLoeschen()
   If WorksheetFunction.CountIf(Range("A:A"), "") > 0 Then _
       Range("A:A").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

  • Vermeide Schleifen, wenn du mit großen Datenmengen arbeitest. Diese können die Performance negativ beeinflussen.

FAQ: Häufige Fragen

1. Frage: Kann ich das Makro auch für mehrere Spalten verwenden?
Antwort: Ja, du kannst das Makro anpassen, indem du die Spaltennummern in der Cells-Funktion änderst, um auch andere Spalten zu überprüfen.

2. Frage: Wie kann ich leere Zeilen automatisch ohne VBA löschen?
Antwort: Du kannst die Filterfunktion verwenden, um leere Zeilen anzuzeigen und diese dann manuell zu löschen.

3. Frage: Was passiert mit den Daten, wenn ich leere Zeilen lösche?
Antwort: Die Daten in den verbleibenden Zeilen werden nach dem Löschen nach oben verschoben, um die Lücken zu schließen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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