Druckbereich mit variabler Spalte
18.08.2006 13:54:41
Stephan
Sub druck()
Dim a As Integer
zeile = Cells(1, Columns.Count).End(xlToLeft).Column
PageSetup.PrintArea = "a1:" & zeile & "76"
End Sub
Danke vorab.
Stephan
Anzeige