Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
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
1460to1464
1460to1464
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leere Zeilen ausblenden mit VBA

Forumthread: Leere Zeilen ausblenden mit VBA

Leere Zeilen ausblenden mit VBA
23.11.2015 14:03:36
Michael
Hallo,
ich suche nach einer Möglichkeit beim öffnen einer Excel Datei bei leeren Zellen in der Spalte B die gesamte Zeile auszublenden. Dazu habe ich diesen Code gefunden:
Private Sub Workbook_Open()
Dim rngBlnk As Range
On Error Resume Next 'in case no blanks are present...
Set rngBlnk = Range("B1:B4600").SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not rngBlnk Is Nothing Then
Debug.Print rngBlnk.Address()
rngBlnk.EntireRow.Hidden = False
End If
End Sub
leider funktioniert es nicht weil ich scheinbar Formeln in den Zellen hab. Die formeln sollen bestehen bleiben, da ich hiermit Werte aus anderen Dateien rüber hole falls vorhanden. Wie müsste ich den Code anpassen damit trotz der Formeln leere Zellen (ohne Werte) und damit die gesamte Zeile ausgeblendet wird.
Gruß
Michael

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Leere Zeilen ausblenden mit VBA
23.11.2015 14:16:42
Rudi
Hallo,
dann musst du alle Zellen auf "" prüfen.
Sub aaa()
Dim r As Range, rBlank As Range
For Each r In Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp))
If r = "" Then
If rBlank Is Nothing Then
Set rBlank = r
Else
Set rBlank = Union(rBlank, r)
End If
End If
Next
If Not rBlank Is Nothing Then rBlank.EntireRow.Hidden = True
End Sub
Gruß
Rudi

Anzeige
AW: Leere Zeilen ausblenden mit VBA
23.11.2015 14:34:19
Michael
Danke!

AW: Leere Zeilen ausblenden mit VBA
23.11.2015 14:17:17
Daniel
Hi
merke: Zellen die eine Formel enthalten, sind nie leer.
wenn das Formelergebnis der Leerstring "" enthält diese Zelle technisch gesehen einen Text.
am besten ist, du verwendest den Autofilter, denn dieser unterscheidet nicht zwischen echten Leerzellen und Zellen mit dem Formelergebnis "".
der Code wäre dann:
Private Sub Workbook_Open()
ActiveSheet.Usedrange.Autofilter Field:=2, Criteria1:=""
End Sub

den ursprünglichen Code könntest du verwenden, wenn die Formeln in Spalte B entweder den Leerstring oder ansonsten eine Zahl bzw Datum als Ergebnis ausgeben, dann könnten die .SpecialCells diesen unterschied erkennen und die Zellen mit Text ausblenden:
Set rngBlnk = Range("B1:B4600").SpecialCells(xlCellTypeFormulas, 2)

wobei die 2 hier für Text steht und das .SpecialCells hier alle Zellen findet, die eine Formel enthalten die einen Text als Ergebnis haben.
andersrum geht's natürlich auch, dh wenn deine Formeln normalerweise Texte ausgeben, dann müssest du die Formeln so umgestalten, dass statt dem Leerstring die Zahl 0 ausgeben wird.
dann könntest du alle Zeilen mit Zahl in Spalte B ausblenden: 
Set rngBlnk = Range("B1:B4600").SpecialCells(xlCellTypeFormulas, 1)

die 1 steht hier für Zellen mit Zahl als Inhalt.
Gruß Daniel

Anzeige
AW: Leere Zeilen ausblenden mit VBA
23.11.2015 14:34:49
Michael
Danke für die ausführliche Erläuterung!
;

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
in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 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
Combobox ausgeblendete Zeilen nicht anzeigen
helena

Schönen Guten Morgen
Kleines Problem ich verstecke Zeilen wenn in Spalte C Begriff nicht vorhanden dies klappt auch
aber via Combobox suche ich Namen (Adressvergabe) aber es werden mir immer alle aufgelistet auch wenn Zeilen ausgeblendet sind, ich Blende aus ob ich nur G_kunden oder P_...
28.12.2008 09:10:32
Thread-ID: 1035521
12 Beiträge
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
leere Zellen ausblenden
Christoph

Habe folgendes Problem, dass ich mit einem neuen Makro lösen will:
Aus einem Eingabebereich kopiere ich über Verlinkungen die Zelleninhalte in einen Ausgabebereich, der mir 200 Zeilen Platz für die Daten läßt. Damit ich optisch einen schönen Ausgabebereich habe, sollen nun mittels eines Mar...
27.01.2009 13:10:00
Thread-ID: 1044202
4 Beiträge
Alle komplett leeren ZEILEN löschen
Tobias

Hallo allesamt,
ich würde gerne alle Zeilen Löschen, wenn nichts in den zellen steht
habs hiermit versucht:
Sub LeereZeilenLöschen() Dim tmp Dim x Application.ScreenUpdating = False ActiveSheet.Unprotect Password:=passw tmp = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row For...
14.03.2009 00:09:37
Thread-ID: 1060081
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
leere Zellen ausblenden
oli.p

Hallo zusammen...
Bin (mal wieder) fast am verzweifeln.
Für eine Grafik möchte ich die Zellen mit 0,00 ausblenden (sonst gibt es so hässliche Ausreißer).
Habe schon das Häkchen (Optionen) für das Anzeigen der Nullwerte entfernt.
Und mit der Formel: =WENN(INDEX(SH!I:I;(ZEILE(SH!...
21.08.2009 12:22:23
Thread-ID: 1097701
8 Beiträge
Anzeige
leere Zellen im Listenfeld ausblenden
ben

Hallo zusammen,
Ich habe ein Listenfeld. Dieses ist mit einem Eingabenbereich (A1:A5000) verknüpft. Das Listenfeld zeigt alle Werte im Bereich A1 bis A5000 an, jedoch auch die Zellen die leer sind. Folge ist, dass das Listenfeld riesen groß wird (5000 Werte), obwohl nur 200 Zellen beschrieb...
01.09.2009 09:16:09
Thread-ID: 1099747
5 Beiträge
leere Zeilen automatisch auszublenden
Lena

Hallo Excelfreunde,
Ist es möglich, leere Zeilen automatisch auszublenden? Um es besser zu erklären, habe ich hier eine Beispieldatei angefertigt.
https://www.herber.de/bbs/user/64718.xls
In Tabelle2 entstehen, je nachdem, was in Tabelle1 Spalte 1 eingetragen wird, Zeilen, welche le...
26.09.2009 15:35:39
Thread-ID: 1105696
8 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
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 in Excel automatisch ausblenden mit VBA

Schritt-für-Schritt-Anleitung

Um leere Zeilen in Excel automatisch auszublenden, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

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

  2. Klicke im Projektfenster mit der rechten Maustaste auf Diese Arbeitsmappe und wähle Code anzeigen.

  3. Füge den folgenden Code ein:

    Private Sub Workbook_Open()
    Dim rngBlnk As Range
    On Error Resume Next
    Set rngBlnk = Range("B1:B4600").SpecialCells(xlCellTypeBlanks)
    On Error GoTo 0
    If Not rngBlnk Is Nothing Then
        rngBlnk.EntireRow.Hidden = True
    End If
End Sub

  4. Schließe den VBA-Editor und speichere die Datei als .xlsm (Makro-aktivierte Arbeitsmappe).

  5. Schließe und öffne die Datei erneut, um die leeren Zeilen auszublenden.

Häufige Fehler und Lösungen

  • Fehler: Der Code funktioniert nicht, weil die Zellen Formeln enthalten.

    • Lösung: Du musst die Zellen auf "" prüfen. Verwende folgenden Code:
    Sub LeereZeilenAusblenden()
    Dim r As Range, rBlank As Range
    For Each r In Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp))
        If r = "" Then
            If rBlank Is Nothing Then
                Set rBlank = r
            Else
                Set rBlank = Union(rBlank, r)
            End If
        End If
    Next
    If Not rBlank Is Nothing Then rBlank.EntireRow.Hidden = True
End Sub

  • Fehler: Du möchtest leere Zeilen ausblenden, aber die Formeln sollen erhalten bleiben.

    • Lösung: Nutze den Autofilter, um zwischen echten leeren Zellen und Zellen mit Formelergebnissen zu unterscheiden:
    Private Sub Workbook_Open()
    ActiveSheet.UsedRange.AutoFilter Field:=2, Criteria1:=""
End Sub

Alternative Methoden

Neben VBA gibt es auch andere Möglichkeiten, um leere Zeilen in Excel auszublenden:

  • Filter-Funktion: Nutze die Filterfunktion, um nur die Zeilen anzuzeigen, die Daten enthalten. Du kannst dies über die Menüleiste aktivieren.
  • Formelbasierte Ansätze: Du kannst auch eine Hilfsspalte erstellen, die die Zeilen markiert, die du ausblenden möchtest, und dann mit dem Filter arbeiten.

Praktische Beispiele

  1. Beispiel 1: Wenn du eine Tabelle hast, in der die Spalte B für Namen genutzt wird und du nur die ausgefüllten Zeilen anzeigen möchtest, kannst du den Autofiltern verwenden, um Zellen zu filtern, die keinen Text enthalten.

  2. Beispiel 2: Um leere Spalten auszublenden, kannst du eine ähnliche Technik wie beim Ausblenden der Zeilen verwenden. Der Code könnte wie folgt aussehen:

    Sub LeereSpaltenAusblenden()
    Dim col As Range
    For Each col In ActiveSheet.UsedRange.Columns
        If Application.WorksheetFunction.CountA(col) = 0 Then
            col.EntireColumn.Hidden = True
        End If
    Next col
End Sub

Tipps für Profis

  • Automatisierung: Du kannst das Ausblenden der leeren Zeilen automatisch beim Öffnen der Datei aktivieren, indem du den entsprechenden VBA-Code in das Workbook_Open-Ereignis einfügst.
  • Debugging: Nutze Debug.Print, um den Status der Zellen zu überprüfen, bevor du sie ausblendest.
  • Kombination von Methoden: Du kannst VBA mit Excel-Formeln kombinieren, um noch flexiblere Lösungen zu entwickeln.

FAQ: Häufige Fragen

1. Wie kann ich leere Zeilen in Excel automatisch ausblenden?
Du kannst dies mit einem VBA-Skript tun, das beim Öffnen der Datei ausgeführt wird.

2. Funktioniert das Ausblenden von leeren Zeilen auch bei Formeln?
Ja, du musst jedoch sicherstellen, dass du die Zellen auf "" prüfst, da Formeln, die leer erscheinen, technisch gesehen nicht leer sind.

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