Druckbereich ausser farbige Zeilen
13.04.2004 15:20:35
TinoB
mit dem untenstehenden makro lege ich den druckbereich dynamisch bis zur letzten gefüllten zeile fest. nun meine frage, kann man farbige Zeilen vom druckbereich ausschließen? ist so was möglich? und wenn ja, wie?
danke
Tino
Sub Druckbereich()
Dim Loletzte As Long
Dim LoI As Long
Loletzte = 65536
If [W65536] = "" Then Loletzte = [W65536].End(xlUp).Row
For LoI = Loletzte To 2 Step -1
If Cells(LoI, 23) <> Empty Then Exit For
Next LoI
ActiveSheet.PageSetup.PrintArea = "$A$1:$Z$" & LoI
End Sub