Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1760to1764
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
Inhaltsverzeichnis

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige