Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
16.04.2024 16:22:58
Pivot
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
208to212
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
208to212
208to212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckbereich

Druckbereich
24.01.2003 11:25:39
Thorsten
Hallo Forum,

kann man den Druckbereich und Seitenumbruch in Abhängigkeit davon bestimmen, ob eine Spalte Zahlen enthält oder nicht?
Wenn also Spalte F Werte enthält, soll der Seitenumbruch bei Spalte D sein und die Printarea bis Spalte F gehen...
Wie kann ich das lösen?

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

Betreff
Datum
Anwender
Anzeige
Re: Druckbereich
24.01.2003 12:44:58
Steffan
Hallo Thorsten,

so geht's:


Sub SeitenUmbruch_Druckbereich()
'alle vertikalen Seitenumbrüche und Druckbereiche löschen
For Each vBreak In ActiveSheet.VPageBreaks
    vBreak.Delete
Next
ActiveSheet.PageSetup.PrintArea = False
'Spalte F auf Wert überprüfen
If Cells(65536, 6).End(xlUp) = Cells(65536, 1) And Cells(65536, 1).Value = Empty Then
    'keine Werte in Spalte F
    'Seitenumbruch vor Spalte E
    ActiveSheet.VPageBreaks.Add Before:=Cells(1, 5)
    'Druckbereich von Spalte A bis D
    ActiveSheet.PageSetup.PrintArea = "$A$1:$D$" & Trim(Str(Cells(65536, 1).End(xlUp).Row))
Else
    'Werte in Spalte F
    'Seitenumbruch vor Spalte G
    ActiveSheet.VPageBreaks.Add Before:=Cells(1, 7)
    'Druckbereich von Spalte A bis F
    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & Trim(Str(Cells(65536, 1).End(xlUp).Row))
End If
End Sub
 

Steffan.

Anzeige
Re: Druckbereich
24.01.2003 15:08:19
Thorsten
Danke

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige