Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Wenn Zelle leer, dann Zeile ausblenden mit VBA

Wenn Zelle leer, dann Zeile ausblenden mit VBA
09.03.2015 13:10:22
Bonduca
Hallo,
ich möchte gerne meinen Druckbereich anpassen und nur Zeilen mit Inhalt in Spalte D drucken lassen. Dafür möchte ich, dass die leeren Zeilen ausgeblendet werden.
Ich suche also nach einem Code der mir komplette Zeilen ausblendet, wenn in D:D Zellen leer sind. Wenn z.B. D3 leer ist, dann sollte die komplette Zeile 3 ausgeblendet werden.
Ich habe in D7:D600 Wenn-Formeln eingepflegt (Wenn...,dann..., sonst ""). Die leeren Zellen haben also den Inhalt "" (Ich weiß nicht ob das von Bedeutung ist; bin in VBA Programmierung blutiger Anfänger)
Kann mir jemand weiterhelfen?
Danke! Bon

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Zelle leer, dann Zeile ausblenden mit VBA
09.03.2015 13:45:39
Bernd
Hi nochmals!
hier ein VBA Code aus den Officelösungen, geht auch mit jenen, welche Formeln enthalten:
Option Explicit
Sub Ausblenden()
Dim j As Long
Dim i As Long
j = Range("D800").End(xlUp).Row
For i = 1 To j
If Cells(i, 4) = "" Then
Range(Cells(i, 4), Cells(i, 4)).EntireRow.Hidden = True
End If
Next i
End Sub
lg Bernd

Anzeige
AW: Wenn Zelle leer, dann Zeile ausblenden mit VBA
10.03.2015 10:12:33
Bonduca01
Hervorragend! Vielen Dank! Klappt perfekt!

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zeilen in Excel automatisch ausblenden, wenn Zellen leer sind


Schritt-für-Schritt-Anleitung

Wenn Du in Excel Zeilen ausblenden möchtest, wenn bestimmte Zellen leer sind, kannst Du dies einfach mit einem VBA-Skript umsetzen. Hier ist eine Schritt-für-Schritt-Anleitung:

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

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

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

    Sub Ausblenden()
       Dim j As Long
       Dim i As Long
       j = Range("D800").End(xlUp).Row
       For i = 1 To j
           If Cells(i, 4) = "" Then
               Range(Cells(i, 4), Cells(i, 4)).EntireRow.Hidden = True
           End If
       Next i
    End Sub
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

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

Jetzt werden alle Zeilen in Deiner Tabelle automatisch ausgeblendet, wenn die Zellen in Spalte D leer sind.


Häufige Fehler und Lösungen

  • Fehler: "Komponente nicht gefunden"

    • Lösung: Stelle sicher, dass Du den richtigen Bereich in Deinem VBA-Code angegeben hast.
  • Fehler: Zeilen werden nicht ausgeblendet

    • Lösung: Überprüfe, ob die Zellen tatsächlich leer sind oder ob sie einen Leerstring ("") enthalten.
  • Fehler bei der Ausführung des Makros

    • Lösung: Stelle sicher, dass die Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen.

Alternative Methoden

Wenn Du keine VBA-Programmierung verwenden möchtest, gibt es auch einige Formeln, die Du nutzen kannst:

  • Du kannst Filter verwenden, um nur die Zeilen anzuzeigen, die Inhalte in den Zellen haben. Gehe dazu auf Daten > Filter.
  • Eine weitere Möglichkeit ist die bedingte Formatierung, um Leere Zellen hervorzuheben und manuell die Zeilen auszublenden.

Praktische Beispiele

Hier sind einige praktische Szenarien, in denen das Ausblenden von Zeilen hilfreich sein kann:

  • Druckvorbereitung: Wenn Du nur die Zeilen drucken möchtest, die Daten enthalten, kannst Du leere Zeilen einfach ausblenden, bevor Du druckst.
  • Datenanalyse: Bei der Analyse von Daten in Excel ist es oft hilfreich, nur die relevanten Daten anzuzeigen und leere Zeilen auszublenden, um den Fokus zu erhöhen.

Tipps für Profis

  • Wenn Du häufig mit leeren Zellen arbeitest, kannst Du das Makro so anpassen, dass es automatisch beim Öffnen der Datei ausgeführt wird. Füge dazu den Code in das Workbook_Open()-Ereignis ein.
  • Verwende Option Explicit, um sicherzustellen, dass alle Variablen deklariert sind. Dies hilft, Fehler zu vermeiden.

FAQ: Häufige Fragen

1. Frage
Wie kann ich das Makro anpassen, um Zeilen basierend auf einer anderen Spalte auszublenden?
Antwort: Ändere einfach den Wert in Cells(i, 4) auf die entsprechende Spalte, z. B. Cells(i, 2) für Spalte B.

2. Frage
Kann ich das Ausblenden von Zeilen auch ohne VBA machen?
Antwort: Ja, Du kannst Filter verwenden oder die bedingte Formatierung nutzen, um leere Zellen hervorzuheben und manuell auszublenden.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige