Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1760to1764
1760to1764
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

dynamischer Druckbereich

Forumthread: dynamischer Druckbereich

dynamischer Druckbereich
05.06.2020 10:36:57
BetiFi
Hallo,
ich würde gerne ein Makro o.ä. in Excel eingeben, der den Druckbereich bzw. den Seitenumbuch automatisch erkennt.
Allerdings kenne ich mich mit Makros überhaupt nicht aus.
vG
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: dynamischer Druckbereich
05.06.2020 10:59:11
Martin
Hallo BetiFi,
deine Frage ist sehr unkonkret gestellt, denn vermutlich brauchst du nicht wirklich die Zelladressen. Hier ein Makro zum Auslesen des Druckbereichs und der Seitenumbrüche:
Sub Druckbereich()
Dim i As Integer
Dim iBreak As Integer
With ActiveSheet
MsgBox "Es gibt " & .HPageBreaks.Count & " horizontale Seitenumbrüche"
MsgBox "Es gibt " & .VPageBreaks.Count & " vertikale Seitenumbrüche"
For i = 1 To .HPageBreaks.Count
MsgBox "Der " & i & ". horizontale Seitenumbruch befindet sich in Zeile: " & . _
HPageBreaks(i).Location.Row
Next
For i = 1 To .VPageBreaks.Count
MsgBox "Der " & i & ". horizontale Seitenumbruch befindet sich in Spalte: " & . _
VPageBreaks(i).Location.Column
Next
MsgBox "Der Druckbereich ist: " & .PageSetup.PrintArea
End With
End Sub
Viele Grüße
Martin
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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