Zeilen für Druck ausblenden wenn leer

Forumthread: Zeilen für Druck ausblenden wenn leer

Lutz

Hallo Excel-Profis,
ich habe ein Programm bei dem man immer ein Blatt ausdruckt.
In den Zeilen 9-20 stehen manchmal Werte in Spalte F und manchmal ist Spalte F = "".
Ich möchte jetzt für den Druck alle Zeilen ausblenden in denen in Spalte F kein Wert sondern "" steht - nach dem Druck sollten die Zeilen wieder angezeigt werden.
Das Tabellenblatt heißt "Bondruck" - das Makro wird von einem anderen Tabellenblatt aufgerufen.
Wie kann man das machen?
Vielen Dank für die Hilfe
Gruß Lutz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Zeilen für Druck ausblenden wenn leer

05.08.2009 15:08:20

Mario

Hi Lutz,
probiers mal mit folgendem Code.

Private Sub Zellen_ausblenden_und_drucken ()
Dim Bereich As Range
With Worksheets("Bondruck")
Set Bereich = .Range("F9:F20")
For Each Zelle In Bereich.Cells
If Zelle.Value  "" Then
Zelle.EntireRow.Hidden = False
Else
Zelle.EntireRow.Hidden = True
End If
Next Zelle
'Hier Drucken - Das kannst du dir in einem Makro aufzeichnen
.PrintOut Copies:=1, Collate:=True
'Alle Zellen wieder einblenden
.Range("F9:F20").EntireRow.Hidden = False
Set Bereich = Nothing
End With
End Sub

Gruß
Mario

AW: Zeilen für Druck ausblenden wenn leer

05.08.2009 15:48:39

Lutz

Hallo Mario,
wunderbar, das geht wie verrückt.
Du hast mir sehr geholfen.
Vielen lieben Dank und noch einen schönen Tag.
Gruß Lutz

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um Zeilen in Excel auszublenden, wenn sie leer sind, kannst du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Erstelle ein neues Modul:
- Klicke auf Einfügen > Modul.

Füge den folgenden Code ein:

Private Sub Zellen_ausblenden_und_drucken()
   Dim Bereich As Range
   With Worksheets("Bondruck")
       Set Bereich = .Range("F9:F20")
       For Each Zelle In Bereich.Cells
           If Zelle.Value <> "" Then
               Zelle.EntireRow.Hidden = False
           Else
               Zelle.EntireRow.Hidden = True
           End If
       Next Zelle
       'Hier Drucken - Das kannst du dir in einem Makro aufzeichnen
       .PrintOut Copies:=1, Collate:=True
       'Alle Zellen wieder einblenden
       .Range("F9:F20").EntireRow.Hidden = False
       Set Bereich = Nothing
   End With
End Sub

Speichere und schließe den VBA-Editor.
Führe das Makro aus, um die leeren Zeilen auszublenden und das Blatt zu drucken.

Häufige Fehler und Lösungen

Makro funktioniert nicht:
- Stelle sicher, dass Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center und aktiviere die Makros.
Druck zeigt leere Zeilen:
- Überprüfe, dass der Bereich korrekt definiert ist und die richtigen Zellen in Spalte F überprüft werden.
Zeilen blieben sichtbar:
- Stelle sicher, dass die Bedingung If Zelle.Value <> "" korrekt formuliert ist.

Alternative Methoden

Wenn du kein VBA verwenden möchtest, gibt es auch andere Möglichkeiten, leere Zeilen auszublenden:

Filter verwenden:
- Wähle den gesamten Bereich aus, gehe zu Daten > Filter und setze einen Filter für Spalte F, um nur die nicht-leeren Zellen anzuzeigen.
Bedingte Formatierung:
- Du kannst leere Zellen farblich hervorheben und dann den Druckbereich entsprechend anpassen, um nur die gewünschten Zeilen zu drucken.

Praktische Beispiele

Ein Beispiel für das oben genannte Makro wäre, wenn du in einem Lagerverwaltungssystem nur die Artikel drucken möchtest, die vorrätig sind. Das Makro kann so angepasst werden, dass es alle leeren Zeilen in Spalte F (z.B. "Vorrat") ausblendet, bevor der Druckvorgang gestartet wird.

Tipps für Profis

Automatisierung: Du kannst das Makro so programmieren, dass es automatisch beim Öffnen des Dokuments oder beim Ändern bestimmter Zellen ausgeführt wird.
Zusätzliche Bedingungen: Erweitere den Code, um auch andere Spalten zu berücksichtigen, indem du weitere If-Bedingungen hinzufügst.
Drucklinien ausblenden: Nutze die Funktion Page Layout > Gridlines, um die Drucklinien in Excel auszublenden, wenn du einen sauberen Ausdruck möchtest.

FAQ: Häufige Fragen

1. Wie kann ich leere Zellen in Excel automatisch ausblenden? Verwende die oben beschriebene Methode mit VBA, um leere Zellen in bestimmten Spalten auszublenden, bevor du druckst.

2. Kann ich leere Zeilen auch ohne VBA ausblenden? Ja, durch das Setzen von Filtern kannst du leere Zeilen vor dem Drucken ausblenden.

3. Wie blende ich Drucklinien in Excel aus? Gehe zu Seitenlayout > Drucklinien und deaktiviere die Option, um die Drucklinien auszublenden.

Beliebteste Forumthreads (12 Monate)

Zeilen für Druck ausblenden wenn leer

Forumthread: Zeilen für Druck ausblenden wenn leer

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Zeilen für Druck ausblenden, wenn leer

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Zeilen für Druck ausblenden wenn leer

Forumthread: Zeilen für Druck ausblenden wenn leer

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Zeilen für Druck ausblenden, wenn leer

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread