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

Variabler Druckbereich (PDF)

Variabler Druckbereich (PDF)
07.11.2022 10:19:09
Basti
Hallo Zusammen,
ich möchte folgenden Code variabler gestalten:

Sub Druck()
ActiveSheet.PageSetup.PrintArea = "$A$7:$M$1003" ' Zu druckender Range
Application.Dialogs(xlDialogPrint).Show
ActiveSheet.PageSetup.PrintArea = False
End Sub
Ich möchte den Range aus Sheet "Start" Zelle C10 übernehmen.
In der Zelle C10 könnte z.B. stehen C7:M22
Kann die PrintArea in die Zelle C10 reingehen und sich dort den Bereich zum drucken ziehen?
Danke und viele Grüße
Basti

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variabler Druckbereich (PDF)
07.11.2022 10:53:26
Basti
Hallo Zusammen,
ich habe bereits eine Lösung gefunden:

Sub Druck()
With ActiveSheet
ActiveSheet.PageSetup.PrintArea = Sheets("Start").Range("C10").Text
Application.Dialogs(xlDialogPrint).Show
ActiveSheet.PageSetup.PrintArea = False
End With
End Sub
Viele Grüße
Basti
AW: Variabler Druckbereich (PDF)
07.11.2022 11:03:10
onur

Sub Druck()
Dim rng As String
rng = Range("C10").Text
ActiveSheet.PageSetup.PrintArea = rng ' Zu druckender Range
Application.Dialogs(xlDialogPrint).Show
ActiveSheet.PageSetup.PrintArea = False
End Sub

AW: Variabler Druckbereich (PDF)
07.11.2022 11:12:29
Basti
Hallo Onur,
vielen Dank - funktioniert einwandfrei.
Viele Grüße
Basti
Anzeige
Gerne !
07.11.2022 12:18:56
onur

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige