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

leere Zeilen löschen mit VBA

Forumthread: leere Zeilen löschen mit VBA

leere Zeilen löschen mit VBA
03.07.2003 15:20:20
Frank
Hallo,
in einer Tabelle in Spalte A stehen in unregelmäßigen Abständen Werte. Alle leeren Zellen
dazwischen möchte ich löschen. Ich habe folgendes Makro probiert:

Sub Test()
Dim i As Integer
Range("A1").Select
For i = 1 To 200
If ActiveCell.Value = "" Then Rows.Delete
Next i
End Sub

Dabei löscht er mir jedoch auch Zeilen in denen Werte stehen. Der Autofilter soll nicht be-
nutzt werden. Bitte um Hilfe.
Gruß
Frank
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: leere Zeilen löschen mit VBA
03.07.2003 15:22:46
TinoS
Hi, versuch es mal hiermit:

Sub Test()
Dim i As Integer
Range("A1").Select
For i = 1 To 200
'---->
cells(i,1).select
'<----
If ActiveCell.Value = "" Then Rows.Delete
Next i
End Sub

Gruß Tino S.

AW: leere Zeilen löschen mit VBA
03.07.2003 15:27:47
Frank
Hallo Tino,
das funktioniert leider auch nicht. Er löscht alle Zeilen.
Gruß
Frank

Anzeige
AW: leere Zeilen löschen mit VBA
03.07.2003 15:34:12
TinoS
Sorry, Denkfehler:

Sub Test()
Dim i As Long
Dim zeile As Long
Dim ende As Long
Range("A1").Select
ende = Range("A65536").End(xlUp).Row
Do Until i = ende
If ActiveCell.Value = "" Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
i = i + 1
Loop
End Sub

Gruß Tino

Anzeige
AW: leere Zeilen löschen mit VBA
03.07.2003 15:40:43
PeterW
Hallo Frank (und Timo),
in VBA kann fast immer auf Select verzichtet werden. Löschen ist sicherer von unten nach oben:

Sub Test()
Dim lgCount As Long
Dim lgLetzte As Long
lgLetzte = Range("A65536").End(xlUp).Row
For lgCount = lgLetzte To 1 Step -1
If IsEmpty(Cells(lgCount, 1)) Then
Cells(lgCount, 1).Delete shift:=xlUp
End If
Next
End Sub

Gruß
Peter

Anzeige
AW: leere Zeilen löschen mit VBA
03.07.2003 15:54:49
Frank
Hallo Peter,
auch Dir Danke für Deine Hilfe.
Gruß
Frank

AW: leere Zeilen löschen mit VBA
03.07.2003 15:38:23
Frank
Hallo Tino,
das sieht gut aus. Danke
Gruß
Frank

;

Forumthreads zu verwandten Themen

VBA Zeilen ein/ausblenden + weiters Problem
oblivion

hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
10.08.2008 00:22:06
Thread-ID: 1000558
3 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
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
Leere zeilen ausblenden
Andreas

Hallo Forum,
mit folgendem Code lasse ich Zeile auf Inhalt prüfen und ggf. ausblenden:
Private Sub Worksheet_Activate() Dim rng As Range For Each rng In Range("A30:A47") rng.EntireRow.Hidden = rng.Value = "" Next End Sub
Bei diesem Vorgang flackert aber das Dokument einige Sekund...
03.07.2009 14:06:44
Thread-ID: 1086237
6 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
Anzeige
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
Zellen verschieben/Zeilen löschen VBA
Thomas

Liebes Forum,
ich habe folgendes Problem
Ich habe eine Excel Datei mit den beiden Spalten Name und Wahlpflichtfach und möchte die Fächerkombinationen auszählen lassen.
Nun ist mir die Tabelle aber leider so gegeben worden, dass diesselbe Person immer doppelt aufgeführt ist. Einmal...
07.11.2009 14:43:44
Thread-ID: 1115212
5 Beiträge
Leere Zeilen bzw. Spalten ausblenden
Dietmar

Guten Abend zusammen,
habe folgenden Code von Sepp hier im Forum gefunden.
Wie lässt der Code sich ändern, dass Zeilen/Spalten ausgeblendet werden, wenn keine Werte (!) enthalten sind.
Vorliegender Code blendet die Zeilen/Spalten auch aus , wenn Formeln enthalten sind, obwohl keine...
12.11.2009 22:19:00
Thread-ID: 1116689
9 Beiträge
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
Anzeige

Infobox / Tutorial

Leere Zeilen in Excel mit VBA löschen

Schritt-für-Schritt-Anleitung

Um leere Zeilen in Excel mit einem VBA-Makro zu löschen, folge diesen Schritten:

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

  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden Code in das Modul:

    Sub LeereZeilenLoeschen()
    Dim lgCount As Long
    Dim lgLetzte As Long

    ' Bestimme die letzte Zeile in Spalte A
    lgLetzte = Range("A65536").End(xlUp).Row

    ' Durchlaufe alle Zeilen von unten nach oben
    For lgCount = lgLetzte To 1 Step -1
        If IsEmpty(Cells(lgCount, 1)) Then
            Cells(lgCount, 1).Delete Shift:=xlUp
        End If
    Next
End Sub

  4. Schließe den VBA-Editor.

  5. Führe das Makro aus, indem Du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.

Dieses Makro löscht alle leeren Zeilen in der Spalte A.

Häufige Fehler und Lösungen

  • Problem: Das Makro löscht auch Zeilen mit Werten.

    • Lösung: Stelle sicher, dass die Logik im Makro korrekt ist und die IsEmpty-Funktion verwendet wird. Die oben genannte Methode funktioniert zuverlässig.

  • Problem: Das Makro funktioniert nicht in älteren Excel-Versionen.

    • Lösung: Stelle sicher, dass Du eine Version von Excel verwendest, die VBA unterstützt (Excel 2007 oder höher).

Alternative Methoden

  1. Manuelles Löschen:

    • Markiere die leeren Zeilen, klicke mit der rechten Maustaste und wähle Löschen.

  2. Filtermethode:

    • Setze einen Filter auf die Daten, filtere nach leeren Zellen und lösche diese anschließend.

  3. Excel-Funktion:

    • Verwende die Funktion =WENN(A1="";"";A1) in einer neuen Spalte, um leere Zellen zu ignorieren und kopiere die Ergebnisse anschließend an die ursprüngliche Stelle.

Praktische Beispiele

  • Beispiel 1: Wenn Du nur leere Zeilen in Spalte A löschen möchtest, kannst Du das Makro wie oben gezeigt verwenden.

  • Beispiel 2: Um leere Zeilen in mehreren Spalten zu löschen, passe die Schleife an, um über mehrere Spalten zu iterieren.

    Sub LeereZeilenInMehrerenSpaltenLoeschen()
    Dim lgCount As Long
    Dim lgLetzte As Long

    lgLetzte = Range("A65536").End(xlUp).Row

    For lgCount = lgLetzte To 1 Step -1
        If IsEmpty(Cells(lgCount, 1)) And IsEmpty(Cells(lgCount, 2)) Then
            Cells(lgCount, 1).Delete Shift:=xlUp
        End If
    Next
End Sub

Tipps für Profis

  • Vermeide .Select: In den meisten Fällen kann auf die Verwendung von .Select verzichtet werden, was den Code effizienter macht.
  • Testen in einer Kopie: Teste Dein Makro immer in einer Kopie Deiner Datei, um Datenverlust zu vermeiden.
  • Verwende Option Explicit: Dies zwingt Dich, alle Variablen zu deklarieren und hilft, Fehler zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich leere Zeilen in einer bestimmten Spalte löschen? Du kannst das obige Makro anpassen, indem Du die Spaltennummer in Cells(lgCount, 1) änderst.

2. Was ist der Unterschied zwischen Delete und Clear in VBA? Delete entfernt die gesamte Zeile oder Spalte, während Clear nur den Inhalt löscht, aber die Zeile oder Spalte intakt lässt.

Beliebteste Forumthreads (12 Monate)

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