Leere Zellen und Druckbereich
14.12.2003 15:51:27
Tobi
habe Excel mit dem unten stehenden Code dazu gebracht mir nur die Zellen zu makieren ,die einen Wert mit "R" (in Spalte u) enthalten, die werden dann auch als Druckbereich übernommen.
Problem ist nur wenn die Zellen nicht zusammenhängen (leere Spalten oder leere Zeilen dazwischen) wird für den nächsten Wert ein neues Blatt angelegt.
Ich habe also auf einem Blatt 5 Excel Zeilen, auf dem nächsten 3, dann 6 usw. normalerweise müsste alles auf ein Blatt passen.
*CODE*
Sub Druck
Dim k As Long
Dim a As String
Dim p As String
Set f = Selection
For k = 1 To 548
Cells(k, u).Select 'u ist eine globale Variable
a = ActiveCell.Value
If a Like "*R*" Then
Union(f, Cells(k, 2), Cells(k, u)).Select
Set f = Selection
End If
Next k
p = Selection.Address
ActiveSheet.PageSetup.PrintArea = p
End Sub
Vielleicht kann mir ja jemand weiterhelfen, das für den Druckbereich die leeren Zellen ignoriert werden
Bin für jeden Denkanstoss dankbar.
Tobi