Live-Forum - Die aktuellen Beiträge
Datum
Titel
02.11.2025 10:33:56
Grafische Auswertung täglicher Personaleinsätze
02.11.2025 10:08:41
Datenüberprüfung mit Formel / Auswahlkriterium
02.11.2025 09:18:06
?Teile einer Matrix können nicht geändert werden
01.11.2025 21:43:38
Hilfe bei Wenn- oder anderer Formel?
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
1160to1164
1160to1164
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leere Zeilen aus bestimmtem Bereich löschen

Forumthread: Leere Zeilen aus bestimmtem Bereich löschen

Leere Zeilen aus bestimmtem Bereich löschen
Wolfgang
Hallo, liebe Excel-Experten !
Ich stehe mal wieder mit einem VBA-Problem auf dem Schlauch.
Im Forum und im Internet habe ich bisher keine Lösung für dieses Problem gefunden.
Im Rahmen eines laufenden VBA-Makros möchte ich im fest definierten Bereich A1 bis C10
alle leeren Zeilen löschen.
Das bedeutet, in den Spalten A bis C sind verschieden lange Einträge.
Nur wenn sowohl in spalte A, B und C, also in der gesamten Zeile des Bereiches
kein Eintrag vorhanden ist, soll die gesamte Zeile gelöscht und der darunterliegende Bereich
zeilenweise nach oben verschoben werden.
Mein Ziel ist es, diesen Tabellenbereich möglichst optimal zu komprimieren, ohne das Zeilen,
in denen Einträge vorhanden sind, gelöscht werden.
A1 B1 C1
A2 B2 C2
A4 B4 C4
B5 C5
A6 B6 C6
A7 B7 C7
A8 C8
A10 B10 C10
Die Lösungsansätze, die ich bisher fand, durchsuchen entweder nur eine Spalte oder
gehen bis an das Tabellenende, statt wie hier nur bis zur 10. Zeile.
Ich bitte freundlich um Unterstützung und wünsche ein schönes Wochenende !
Viele Grüße
Wolfgang
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Leere Zeilen aus bestimmtem Bereich löschen
18.06.2010 16:33:56
Beate
Hallo Wolfgang,
Sub Leerzeilen_loeschen()
    'im Bereich A1:C10
    Dim i As Long ' Zeilenzähler
    Application.ScreenUpdating = False ' Bildschirmausgaben abschalten
    For i = 10 To 1 Step -1 'ab Zeile 10 aufwärts Prüfung bis Zeile 1
        If (Application.WorksheetFunction.CountA(Range(Cells(i, 1), Cells(i, 3))) = 0) Then Rows(i).Delete
        If i Mod 100 = 0 Then Application.StatusBar = i
    Next i
    Application.StatusBar = False ' Statuszeile wieder ans Excel zurückgeben
    Application.ScreenUpdating = True ' Bildschirmausgaben einschalten
End Sub
Gruß,
Beate
Anzeige
AW: Leere Zeilen aus bestimmtem Bereich löschen
18.06.2010 16:51:25
Wolfgang
Hallo Beate !
Danke für die schnelle Rückantwort.
Ich habe es eben getestet - Das ist genau, was ich gesucht habe !
Vielen Dank nochmal und ein besonders schönes Wochenende !
(Trotz der Schlappe beim WM-Spiel ;-)
Gruß
Wolfgang
;

Forumthreads zu verwandten Themen

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
vba Leere zellen löschen wenn
Carmen

Hallo liebe Wissenden,
möchte gerne wenn die zellen in Spalte B UND C leer sind dass die gesamte Zeile gelöscht wird, aber vba will keine überlappung.
Sub Leerzeilen_löschen() Range("B1:C100").SpecialCells(xlCellTypeBlanks).EntireRow.delete End Sub
hab das ganze mit if davor und...
06.04.2009 21:26:03
Thread-ID: 1067195
8 Beiträge
Makro doppelte Zeilen löschen
Christian

Hallo allerseits,
ich habe folgendes Makro, welches Zeilen ahand von doppelten Einträgen in einer spalte löscht.
Allerdings wird immer die zweite Zeile (von oben gesehen) gelöscht, ist es auch möglich die erste zeile zu löschen und die zweite zu behalten?
hier das makro: Sub supp_d...
22.07.2009 10:44:51
Thread-ID: 1090433
5 Beiträge
leere Zellen löschen
Udo

Hallo zusammen,
ich hab folgendes Problem:
In Spalte A und B stehen Zahlen drin, wenn in Spalte A eine Zelle leer ist, steht in Spalte B eine Zahl und umgekehrt. Nun möchte ich die Werte der Spalten A und B zusammenführen, so dass ich nur eine Spalte mit den Zahlen habe ohne leere Zelle...
25.07.2009 21:51:47
Thread-ID: 1091320
20 Beiträge
Makro gezielte Zeilen löschen / kopieren
walter

Hallo und guten Abend,
bzgl. einer Optimierungsgeschichte bräuchte ich bitte mal wieder Hilfe:
Datentabelle mit variabler Länge
a) unvollständige Sätze kopieren und in neues Blatt einkopieren, dann diese unvollständigen Sätze löschen (würde ich evtl. mit viel Schweiß selbst noch geb...
23.08.2009 00:48:36
Thread-ID: 1097980
8 Beiträge
Wirklich leere Zeilen löschen
Markus

Hallo,
verschiedene Makro's die ich im Archiv gefunden haben,
lösen nicht mein Problem.
Ich möchte alle Zeilen im aktuellen Sheet löschen, aber nur dann wenn,
keine Formeln, keine Werte und keine Formatierungen (z.B. Zellen gelb hinterlegt), keine Kommentare in den entsprechende...
30.09.2009 14:36:43
Thread-ID: 1106327
4 Beiträge
Anzeige
Makro - Nullstellen - Zeilen löschen
Vohnkar

Schönen Sonntag liebe Experten,
Ich habe schon ein bisschen mit VBA gearbeitet, allerdings nur mit Macrorecorder. Ich glaube, was ich gerade erreichen will benötigt ein Macro, da über die Möglichkeiten des Recorders hinausgeht.
Ich möche in einem Excel-Sheet alle Zeilen entfernen, in de...
06.12.2009 13:38:30
Thread-ID: 1122059
5 Beiträge
Löschen von Zeilen mit Makro
Zeilen

Hallo und guten Abend,
ich habe schon wegen dem Thema Zeilen löschen gesucht und bin fündig geworden, jedenfalls was das Löschen von leeren Zeilen angeht.
Nun möchte ich aus meiner Tabelle Zeilen löschen, die einen Wert nicht wiedergeben. Die Tabelle bezieht sich auf ein weiteres Tabell...
13.02.2010 01:45:21
Thread-ID: 1138255
5 Beiträge
Leere Zellen löschen
Putenbrust

Hallo,
ich möchte in Spalte B im Bereich B100:B300 eines Tabellenblattes alle leeren Zellen löschen. Es kann auch die ganze Zeile gelöscht werden, in der sich eine leere Zelle des Bereichs B100:B300 befindet.
Das ganze über VBA
Kann mir jemand helfen ?
Vielen Dank
Grüsse
...
11.05.2010 07:07:04
Thread-ID: 1156561
15 Beiträge
Formel und leere Zeilen löschen
Lemmi

Hallo zusammen,
ich habe eine Namenstabelle und Adresstabelle zusammengestellt.
Diese beinhaltet jedoch Formeln und leere Zeilen.
Lage und From der Tabelle :
O6-------P6------Q6------R6--------S6--------T6
Herr-----Meier---Fritz----12345---0173-----Fritz.Meier@herber.de
...
28.08.2010 07:44:46
Thread-ID: 1174597
9 Beiträge
VBA schreiben zum Zeilen löschen
Ludwig

Hallo,
vielleicht weis einer was ich hier schreiben müsste?
siehe Anhang
https://www.herber.de/bbs/user/72108.xls
Danke im voraus
lg Ludwig
31.10.2010 18:51:40
Thread-ID: 1184622
7 Beiträge
VBA - zeilen aus liste löschen
susanne

Hallo,
ich bin nicht sonderlich fit in VBA und habe ein kleines problem.
Ich lasse aus einem arbeitsblatt zuerst die daten in ein weiteres blatt kopieren, dann sollen die zeilen gelöscht werden, in denen in der spalte 4 nichts (0) drinsteht. Das funktioniert mit dem skript unten auch. j...
11.11.2010 15:33:12
Thread-ID: 1186332
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Leere Zeilen im Excel-Bereich effizient löschen

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und drücke Alt + F11, um den VBA-Editor zu starten.

  2. Füge ein neues Modul ein:

    • Klicke im Menü auf Einfügen > Modul.

  3. Kopiere den folgenden VBA-Code in das Modul:

    Sub Leerzeilen_loeschen()
   Dim i As Long  ' Zeilenzähler
   Application.ScreenUpdating = False  ' Bildschirmausgaben abschalten
   For i = 10 To 1 Step -1  ' ab Zeile 10 aufwärts Prüfung bis Zeile 1
       If (Application.WorksheetFunction.CountA(Range(Cells(i, 1), Cells(i, 3))) = 0) Then
           Rows(i).Delete
       End If
       If i Mod 100 = 0 Then Application.StatusBar = i
   Next i
   Application.StatusBar = False  ' Statuszeile wieder ans Excel zurückgeben
   Application.ScreenUpdating = True  ' Bildschirmausgaben einschalten
End Sub

  4. Schließe den VBA-Editor und kehre zu deinem Excel-Arbeitsblatt zurück.

  5. Starte das Makro:

    • Drücke Alt + F8, wähle Leerzeilen_loeschen aus und klicke auf Ausführen.

Dieser Code durchsucht den definierten Bereich A1 bis C10 und löscht alle leeren Zeilen, sodass nur die Zeilen mit Einträgen übrig bleiben.

Häufige Fehler und Lösungen

  • Problem: "Excel leere Zeilen am Ende lassen sich nicht löschen."

    • Lösung: Stelle sicher, dass du im richtigen Bereich arbeitest und die richtige Zeilenanzahl angibst (z.B. A1:C10).

  • Problem: "Das Makro funktioniert nicht."

    • Lösung: Überprüfe, ob du die Makros in Excel aktiviert hast. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center und aktiviere die Makros.

Alternative Methoden

  • Excel Formel: Du kannst auch eine Formel verwenden, um leere Zeilen zu identifizieren. Nutze beispielsweise:

    =WENN(UND(A1="", B1="", C1=""), "Leer", "Belegt")

    Diese Formel zeigt "Leer" an, wenn alle drei Zellen in einer Zeile leer sind.

  • Power Query: Eine weitere Möglichkeit ist die Verwendung von Power Query, um leere Zeilen zu entfernen. Importiere deine Daten und nutze die Funktion zum Entfernen von leeren Zeilen.

Praktische Beispiele

  • Beispiel 1: Wenn du einen Bereich A1:C10 mit gemischten Daten hast und nur die leeren Zeilen entfernen möchtest, führe das oben genannte Makro aus.
  • Beispiel 2: Falls du die leere Zeilen löschen möchtest, aber einige Zeilen am Ende behalten willst, ändere die Range im Code entsprechend, z.B. Range("A1:C20").

Tipps für Profis

  • Verwende den Befehl "Anpassen" in Excel, um das Makro schnell zu starten.
  • Setze Tastenkombinationen für deine Makros, um die Effizienz zu steigern.
  • Teste das Makro zuerst in einer Kopie deiner Datei, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Kann ich das Makro auch für andere Bereiche verwenden? Ja, ändere einfach die Range im Code, um andere Bereiche zu definieren.

2. Wie kann ich das Makro anpassen, um nur leere Zellen zu löschen, nicht ganze Zeilen? Du kannst den Code anpassen, um nur die leeren Zellen in einem bestimmten Bereich zu löschen, indem du die Cells(i, j).Delete-Anweisung verwendest.

3. Funktioniert das auch in älteren Excel-Versionen? Ja, der VBA-Code sollte in den meisten Versionen von Excel funktionieren, die VBA unterstützen.

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