Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
620to624
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Verbundene Zellen nicht drucken

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
Anzeige
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
Anzeige
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
HW
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
Anzeige

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige