Das Archiv des Excel-Forums

Druckbereich festlegen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Druckbereich festlegen
von: Erich M.

Geschrieben am: 02.10.2003 12:40:36

Hallo zusammen,

habe ein makro mit dem ein flexibler Druckbereich ermittelt wird.
Dabei wird in Spalte 2 die letzte gefüllte Zelle gesucht.
Nun benötige ich noch die einschränkung, dass nur die zeilen
gedruckt werden, bei denen in der Spalte 3 ab Zeile 8 die Zelle
gefüllt ist.
Mein nachstehender Versuch ist gescheitert:

Sub Dr_Übersicht()
Dim intEndRow As Integer
Dim Lz As Integer
Dim DAT2 As Variant
Dim sDate As String, sPrint As String
sDate = Format(Date, "dd. mm. yyyy")
sPrint = "&""Arial,Fett""&14Bitte beachten: ! &""Arial,Standard""&10 "
With ActiveSheet.PageSetup
.LeftHeader = "Ausdruck am: " & sDate
.CenterHeader = "Datei: &F" & Chr(13) & sPrint
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "Seite &P von &N Seiten"
.RightFooter = ""
End With
Sheets("Erfassung").Select
endrow = Cells(Cells.Rows.Count, 2).End(xlUp).Row 'Letzte Zeile mit Inhalt
Cells(endrow, 2).Select
Lz = InputBox("Ausdruck bis Zeile:")
'   endrow = Cells(Cells.Rows.Count, 2).End(xlUp).Row 'Letzte Zeile mit Inhalt
If Cells(Cells.Rows.Count, 3) = "" Then
Range("n8:T" & Lz).Select
Selection.PrintOut Copies:=1, Collate:=True
Range("n8").Select
End If
End Sub


Besten Dank für eine Hilfe!

mfg
Erich
Bild


Betrifft: AW: Druckbereich festlegen
von: xXx
Geschrieben am: 02.10.2003 12:54:04

Hallo,
warum fragst du dann nicht Spalte 3 nach der letzten Zelle ab??
Oder willst du die Zeilen, die in Spalte C keinen Inhalt haben ausblenden?

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!


Bild


Betrifft: AW: Druckbereich festlegen
von: Erich M.
Geschrieben am: 02.10.2003 13:38:31

Hallo,

genau das ist das Problem.
In Spalte 2 stehen Daten bis Zeile 100(z.B.).
Wenn in Spalte 3 die Zelle leer ist, soll diese Zeile
aber nicht gedruckt (oder ausgeblendet werden).

Danke!

mfg
Erich


Bild


Betrifft: AW: Druckbereich festlegen
von: xXx
Geschrieben am: 02.10.2003 15:38:53

Hallo,
hier mal ein Codeschnipsel.

Sheets("Erfassung").Select
endrow = Cells(Cells.Rows.Count, 2).End(xlUp).Row 'Letzte Zeile mit Inhalt in B
'Ausblenden aller Zeilen ohne Inhalt in C
For Z=8 to endrow
if isempty(cells(z,3) then rows(z).hidden=true
next Z
Lz = InputBox("Ausdruck bis Zeile:") '????
If Cells(Cells.Rows.Count, 3) = "" Then '????Das ist Zelle C65536!!!!
Range("n8:T" & Lz).PrintOut Copies:=1, Collate:=True
Cells.entirerow.hidden=false 'Alle Zeilen einblenden
Range("n8").Select
End If
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!


Bild


Betrifft: Danke!! o.T.
von: Erich M.
Geschrieben am: 02.10.2003 17:24:33

.


 Bild

Excel-Beispiele zum Thema " Druckbereich festlegen"

Druckbereich variabel gestalten download Druckbereich bis zum ersten Nullwert festlegen download
Aktuellen Bereich in den Spalten A:F als Druckbereich download Druckbereich in Abhängigkeit zur Einträgen in einer Spalte download
Druckbereiche als GIF-Grafiken exportieren download Druckbereichsauswahl über CheckBoxes download
Druckbereich der 1. Seite ermitteln download Zeilenhöhe in cm festlegen download
Zellinnenfarben über VBA festlegen download Schriftart und -größe eines Kommentars festlegen download
Position der Symbolleiste festlegen download Datenbank für Datenmaske festlegen download
VBE-Namen der Blattmodule beim Kopieren festlegen download Zellinhalt und Kommentar nach Eingabe festlegen download
Hintergrundfarbe nach Datum festlegen download Für ein VBE-Projekt mit VBA-Code ein Paßwort festlegen download
Maximalwert eines SpinButtons nach Zellwert festlegen download Diagramm-Datenbereich über Schaltfläche festlegen download
Bei Öffnen Standardschriftgröße prüfen und Zoom festlegen download Mit VBA-Routine Bereichsnamen festlegen und ändern download
Druckseiten und Anzahl der Ausdrucke über UserForm festlegen download Hintergrundfarbe eines UserForm-Image-Objekts festlegen download
Gültigkeitsliste nach Kriterium festlegen download Hintergrundfarbe nach Farbindex-Liste festlegen download
Spaltenbreite gemäß den in den Zellen stehenden Zahlen festlegen download Windows-Wallpaper festlegen download
Labelhintergrund mit ScrollBars festlegen download ComboBox-Breiten während der Laufzeit festlegen download
Zellhintergrund in Abhängigkeit von Zelleintrag festlegen. download Im Assistenten anzuzeigende Funktion festlegen download
Hintergrundfarbe gem. Werte/Farbindex festlegen download Sprache von ComboBox-Listen nach Sprachauswahl festlegen download