Nur gefüllten Bereich drucken

Forumthread: Nur gefüllten Bereich drucken

27.07.2004 17:02:25

Frank

Hallo,
bitte nicht steinigen, war mit Sicherheit schonmal da, habs aber nicht gefunden!
Ich möchte nur den mit Daten gefüllten Teil einer Tabelle drucken. Schlüsselspalte ist die Spalte A im Tabellenblatt "Ausdruck". Ist z. B. der Bereich von A3 bis A20 mit Daten gefüllt soll die Seite nur bis Zeile 20 gedruckt werden.
Wie sehe dieses Makro aus?
Vielen Dank im voraus!
mfg
Frank NRW

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Nur gefüllten Bereich drucken

27.07.2004 17:24:59

Hans-Werner
AW: Nur gefüllten Bereich drucken

27.07.2004 18:03:28

Frank
AW: Nur gefüllten Bereich drucken

Hans-Werner
AW: Nur gefüllten Bereich drucken

28.07.2004 10:13:01

Frank

AW: Nur gefüllten Bereich drucken

27.07.2004 17:24:59

Hans-Werner

Hallo Frank
probiere es mal so


Sub Drucken()
Dim wks As Worksheet
Set wks = ActiveSheet
wks.UsedRange.Select      'Bereich in dem etwas steht wird markiert
ActiveSheet.PrintPreview  'Vorschau wird andezeigt
End Sub

Tschüs Hans-Werner

AW: Nur gefüllten Bereich drucken

27.07.2004 18:03:28

Frank

Hallo,
ich hab mich vielleicht nicht ganz präzise ausgedrückt, ich versuchs noch mal!
In Tabelle 1 sind die Hauptdaten. Ein Teil der Spalten (die Druckversion!)
ist in Tabelle 2.
Heute können heute die Zeilen bis z.B. Zeile 20 gefüllt sein, morgen vielleicht
bis Zeile 200!
Starten will ich das ganze über ein Button in Tabelle1 die das Makro zum Druck
in Tabelle2 auslöst! Da fehlt doch im Makro von Hans-Werner der Hinweis auf
Tabelle2, oder!
Ich hab leider von VBA keine Ahnung, sorry!
mfg

AW: Nur gefüllten Bereich drucken

Hans-Werner

Hallo Frank
schau mal Demo Datei.Habe sie getestet und von Tabelle1 gestartet.
https://www.herber.de/bbs/user/8971.xls
Tschüs
H.W

AW: Nur gefüllten Bereich drucken

28.07.2004 10:13:01

Frank

Hallo Hans-Werner,
danke für Deine Mühe!
Ist das korrekt, dass der Druckauftrag aus Deiner Musterdatei nicht startet?
Wenn das so klappen sollte, brauche ich noch einen kleinen Tip.
Wie war nochmal die Tastenkombination um an den VBA-Editor zu kommen?
Ich muß zu meiner Entschuldigung nochmals sagen, dass ich keine Ahnung von
VBA habe.
mfg
Frank

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um in Excel nur den mit Daten gefüllten Bereich zu drucken, kannst du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Erstelle ein neues Modul: Klicke mit der rechten Maustaste auf "VBAProject (dein Workbook)", wähle "Einfügen" und dann "Modul".

Füge den folgenden Code ein:

Sub Drucken()
   Dim wks As Worksheet
   Set wks = ThisWorkbook.Sheets("Tabelle2") ' Ändere den Tabellennamen nach Bedarf
   wks.UsedRange.Select
   ActiveSheet.PrintPreview
End Sub

Speichere das Makro und schließe den VBA-Editor.
Füge einen Button ein: Gehe zurück zu Excel, klicke auf "Entwicklertools", wähle "Einfügen" und dann einen Button. Weise das Makro "Drucken" zu.
Klicke auf den Button, um nur die befüllten Zellen in Tabelle2 anzuzeigen und drucken.

Häufige Fehler und Lösungen

Fehler 1: Das Makro druckt nicht den richtigen Bereich.
- Lösung: Überprüfe, ob der Tabellennamen in der Set wks = ThisWorkbook.Sheets("Tabelle2") Zeile korrekt ist.
Fehler 2: Der VBA-Editor öffnet sich nicht.
- Lösung: Stelle sicher, dass du die richtige Tastenkombination (ALT + F11) verwendest und dass Makros in deiner Excel-Datei aktiviert sind.

Alternative Methoden

Benutze die Druckoptionen: Du kannst auch manuell nur bestimmte Zeilen drucken, indem du den gewünschten Bereich auswählst und dann auf "Drucken" gehst. Wähle "Ausgewählten Bereich drucken" aus.
Filter verwenden: Setze Filter auf deine Tabelle, um nur die gefüllten Zellen anzuzeigen und drucke dann den gefilterten Bereich.

Praktische Beispiele

Beispiel 1: Wenn in Tabelle2 nur die Zeilen A3 bis A20 gefüllt sind, wird beim Ausführen des Makros nur dieser Bereich in der Druckvorschau angezeigt.
Beispiel 2: Du kannst das Makro anpassen, um bestimmte Zeilen drucken zu lassen, indem du die UsedRange durch einen spezifischen Bereich wie Range("A3:A200") ersetzt.

Tipps für Profis

Drucken ohne Vorschau: Wenn du direkt drucken möchtest, kannst du ActiveSheet.PrintOut anstelle von ActiveSheet.PrintPreview verwenden.
Dynamische Anpassungen: Du kannst das Makro erweitern, um automatisch den letzten gefüllten Bereich zu erkennen, indem du Cells(Rows.Count, 1).End(xlUp).Row verwendest.

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen, um nur einen bestimmten Bereich zu drucken?
Du kannst die Zeile wks.UsedRange.Select durch wks.Range("A3:A20").Select ersetzen, um nur die Zellen A3 bis A20 auszuwählen.

2. Gibt es eine Möglichkeit, nur gefüllte Zellen anzuzeigen?
Ja, du kannst die Filterfunktion in Excel nutzen, um nur die gefüllten Zellen anzuzeigen und dann den gefilterten Bereich drucken.

3. Wie kann ich den VBA-Editor schließen?
Du kannst den VBA-Editor einfach schließen, indem du auf das „X“ in der oberen rechten Ecke klickst oder ALT + Q drückst.

Beliebteste Forumthreads (12 Monate)

Forumthread: Nur gefüllten Bereich drucken

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Nur gefüllten Bereich drucken in Excel

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)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread