Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
428to432
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckbereich automatisch erkennen

Druckbereich automatisch erkennen
15.05.2004 17:41:32
micpat
Hallo an alle,
folgendes Problem habe ich. Ich möchte gern den ausdruck einer Liste automatisieren. Dabei ist die Spaltenanzahl immer gleich und die Zeilenanzahl
variiert. Dabei sollte er erkennen wo der Druckbereich der Spalten, in denen
ein spezieller Wert steht enden soll.
Wenn jemand noch eine Idee hat wie ich die Seiten beim drucken trennen
kann in denen zum Beispiel der Wert "hier beginnt neue Seite" steht
wäre mir sehr weitergeholfen.
würde mich freuen wenn jemand eine Lösung hat
vielen Dank !

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

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich automatisch erkennen
15.05.2004 22:02:33
Josef
Hallo ? (hier sind realnames üblich!)
Versuch's mal mit diesem Code.
Option Explicit

Sub DruckenSpezial()
'Dynamischer Druckbereich mit manuelen Seitenumbrüchen
'Die Seitenumbrüche werden gesetzt, wenn eine Zelle in
'Spalte "A" ein Hochkomma ( ' ) enthält
Dim lngR As Long
Dim wks As Worksheet
Dim rng As Range
Set wks = Sheets("Tabelle1") 'Tabellennamen anpassen
With wks
lngR = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row, 65536)
'letzte gefüllte Zelle in Spalte "A" ermitteln
.Cells.PageBreak = xlPageBreakNone 'Seitenumbrüche löschen
.PageSetup.PrintArea = "" 'Druckbereich löschen
.PageSetup.PrintArea = "A1:D" & lngR 'Druckbereich setzen,letzte Spalte anpassen
For Each rng In .Range("A1:A" & lngR) 'letzte Spalte anpassen
If rng.PrefixCharacter = "'" Then 'wenn Zelle in Spalte "A" ein " ' " enthält,
rng.PageBreak = xlPageBreakManual 'dann Zeilenumbruch einfügen
End If
Next
.PrintOut 'Tabelle Drucken
.PageSetup.PrintArea = "" 'Druckbereich löschen
.Cells.PageBreak = xlPageBreakNone 'Seitenumbrüche löschen
End With
End Sub

Gruß Sepp
Anzeige
AW: Druckbereich automatisch erkennen
16.05.2004 13:51:46
martin
Hi Zusammen!
Hab ähnliches Problem, nur möchte ich Excel selber erkennen lassen, wann ein Seitenumbruch angesagt wäre.
Geht das auch?
Liebe Grüße
Martin

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige