Verbundene Zellen nicht drucken

Forumthread: Verbundene Zellen nicht drucken

05.06.2005 17:53:14

Michaela

Hallo Excel-Freunde,
habe eine Excel-Tabelle erstellt (Zeichnungsliste) in der zunächst mehrere (leere) Zellen miteinander verbunden sind. Diese werden später vom Anwender nach und nach ausgefüllt.
Beim Ausdruck wird jedoch der ganze Bereich mit (leeren) miteinander verbundenen Zellen gedruckt, so dass ich viele leere Seiten bekomme....
Wie kriege ich es hin, dass Excel die leeren, verbundenen Zellen nicht druckt?
Vorab vielen Dank für jede Hilfe.
Grüße
Michaela

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Verbundene Zellen nicht drucken

05.06.2005 17:57:03

Hajo_Zi
An Hajo Zellen nicht drucken

05.06.2005 18:11:12

Michaela
AW: Druckbereich

05.06.2005 18:23:26

Hajo_Zi
Zellen nicht drucken

05.06.2005 18:24:56

HW

AW: Verbundene Zellen nicht drucken

05.06.2005 17:57:03

Hajo_Zi

Hallo Michaela,
lege je nach ausfüllen einen Druckbereich an.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

An Hajo Zellen nicht drucken

05.06.2005 18:11:12

Michaela

Hallo Hajo,
danke für Deine Antwort.
Wie kann ich denn Excel so einstellen, dass nur bis zum jeweils untersten Zelleneintrag gedruckt wird?
(ohne jedesmal über Seite einrichten und dann Druckbereich)
Für den Nutzer soll später das Arbeitsblatt gesperrt sein. Er hat also später keinen Einfluss mehr auf den Druckbereich.....
Gruß
Michaela

AW: Druckbereich

05.06.2005 18:23:26

Hajo_Zi

Hallo Michaela,
schaue mal auf meine Homepage da ist ein Beispiel auf der Seite VBA.
Beispieldatei
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.

Zellen nicht drucken

05.06.2005 18:24:56

Hallo Michaela
Druckbereich automatisch anpassen


Sub Letzte()
Dim LZeile%, LSpalte%
LZeile = RealLastCell(ActiveSheet).Row
LSpalte = RealLastCell(ActiveSheet).Column
Set druckrange = Range(Cells(1, 1), Cells(LZeile, LSpalte))
ActiveSheet.PageSetup.PrintArea = druckrange.Address
End Sub

'Funktion von John Walkenbach


Function RealLastCell(TheSheet As Worksheet) As Range
Dim ExcelLastCell As Range
Dim Row%, Col%, LastRowWithData%, LastColWithData%
Application.ScreenUpdating = False
Set ExcelLastCell = TheSheet.Cells.SpecialCells(xlLastCell)
LastRowWithData = ExcelLastCell.Row
Row = ExcelLastCell.Row
Do While Application.CountA(TheSheet.Rows(Row)) = 0 And Row <> 1
Row = Row - 1
Loop
LastRowWithData = Row
LastColWithData = ExcelLastCell.Column
Col = ExcelLastCell.Column
Do While Application.CountA(TheSheet.Columns(Col)) = 0 And Col <> 1
Col = Col - 1
Loop
LastColWithData = Col
Set RealLastCell = TheSheet.Cells(Row, Col)
End Function

Tschüs H.W

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um das Problem zu lösen, dass Excel beim Drucken leere, verbundene Zellen ausgibt, kannst Du folgende Schritte befolgen:

Druckbereich festlegen: Klicke auf die Zelle, die Du als Ausgangspunkt verwenden möchtest. Gehe zu Seitenlayout > Druckbereich > Druckbereich festlegen.

Automatische Anpassung des Druckbereichs: Verwende den VBA-Code, um den Druckbereich automatisch an die ausgefüllten Zellen anzupassen. Füge diesen Code in ein neues Modul ein:

Sub Letzte()
   Dim LZeile%, LSpalte%
   LZeile = RealLastCell(ActiveSheet).Row
   LSpalte = RealLastCell(ActiveSheet).Column
   Set druckrange = Range(Cells(1, 1), Cells(LZeile, LSpalte))
   ActiveSheet.PageSetup.PrintArea = druckrange.Address
End Sub

Function RealLastCell(TheSheet As Worksheet) As Range
   Dim ExcelLastCell As Range
   Dim Row%, Col%, LastRowWithData%, LastColWithData%
   Application.ScreenUpdating = False
   Set ExcelLastCell = TheSheet.Cells.SpecialCells(xlLastCell)
   LastRowWithData = ExcelLastCell.Row
   Row = ExcelLastCell.Row
   Do While Application.CountA(TheSheet.Rows(Row)) = 0 And Row <> 1
       Row = Row - 1
   Loop
   LastRowWithData = Row
   LastColWithData = ExcelLastCell.Column
   Col = ExcelLastCell.Column
   Do While Application.CountA(TheSheet.Columns(Col)) = 0 And Col <> 1
       Col = Col - 1
   Loop
   LastColWithData = Col
   Set RealLastCell = TheSheet.Cells(Row, Col)
End Function

Drucken: Gehe zu Datei > Drucken, um die Vorschau zu überprüfen und sicherzustellen, dass nur die ausgefüllten Zellen gedruckt werden.

Häufige Fehler und Lösungen

Leere Seiten im Druck: Überprüfe, ob der Druckbereich korrekt festgelegt ist. Verwende den oben genannten VBA-Code, um den Druckbereich automatisch anzupassen.
Falsche Zellen werden gedruckt: Stelle sicher, dass Du die richtigen Zellen in Deinen Druckbereich einbeziehst und dass keine leeren, verbundenen Zellen in diesem Bereich sind.

Alternative Methoden

Seitenlayout-Anpassung: Gehe zu Seitenlayout > Seitenränder und wähle eine passende Option, um die Seiten besser zu nutzen.
Manuelle Druckbereichsdefinition: Du kannst auch manuell den Druckbereich anpassen, indem Du die gewünschten Zellen auswählst und dann Druckbereich > Druckbereich festlegen wählst.

Praktische Beispiele

Beispiel für eine Druckbereichseinstellung: Wenn Du eine Tabelle mit Daten in den Zellen A1 bis D10 hast, aber nur bis zur Zelle B5 Daten vorhanden sind, kannst Du den Druckbereich auf A1:B5 festlegen.
VBA-Integration: In einem Projekt, wo Du eine Zeichnungsliste verwaltest, kannst Du den VBA-Code verwenden, um den Druckbereich dynamisch anzupassen, je nachdem, wie viele Einträge vorhanden sind.

Tipps für Profis

VBA-Code optimieren: Wenn Du regelmäßig mit großen Datenmengen arbeitest, kannst Du den VBA-Code anpassen, um auch andere Formate zu berücksichtigen und die Leistung zu steigern.
Druckvorschau nutzen: Nutze die Druckvorschau, um sicherzustellen, dass alles korrekt aussieht, bevor Du tatsächlich druckst. Dies hilft, Papier und Tinte zu sparen.

FAQ: Häufige Fragen

1. Wie kann ich verhindern, dass verbundene Zellen gedruckt werden?
Du kannst dies erreichen, indem Du den Druckbereich manuell festlegst oder den oben genannten VBA-Code verwendest, um den Druckbereich dynamisch anzupassen.

2. Gibt es eine Möglichkeit, die Druckeinstellungen für alle Arbeitsblätter zu ändern?
Ja, Du kannst den VBA-Code so anpassen, dass er für alle Arbeitsblätter in der Arbeitsmappe ausgeführt wird, indem Du eine Schleife implementierst, die durch alle Arbeitsblätter iteriert.

Beliebteste Forumthreads (12 Monate)