Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
792to796
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
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Druckbereich mit variabler Spalte

Druckbereich mit variabler Spalte
18.08.2006 13:54:41
Stephan
Hallo, ich möchte unter VBA einen Druckbereich mit variabler Spalte festlegen, das hier klappt nicht:

Sub druck()
Dim a As Integer
zeile = Cells(1, Columns.Count).End(xlToLeft).Column
PageSetup.PrintArea = "a1:" & zeile & "76"
End Sub

Danke vorab.
Stephan

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

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich mit variabler Spalte
18.08.2006 14:17:40
u_
Hallo,

Sub tt()
Dim strSpalte As String
strSpalte = Replace(Cells(1, Columns.Count).End(xlToLeft).Address(0, 0), "1", "")
ActiveSheet.PageSetup.PrintArea = "a1:" & strSpalte & "76"
End Sub

Gruß
Lesen gefährdet die Dummheit
AW: Druckbereich mit variabler Spalte
21.08.2006 07:29:24
Stephan
Danke, perfekt.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige