Ist es möglich, den Druckbereich über eine Variable zu definieren?
Die Makroaufzeichung ergibt folgendes:
ActiveSheet.PageSetup.PrintArea = "$E$4:$N$31"
Der Druckbereich soll also auf E4 bis N31 festgelegt werden.
Die zweite Zeile (hier 31) wird über eine Variable gefunden:
For i = 1000 To 4 Step -1
If WS.Cells(i, 14).Value "" Then
MsgBox "gefunden" & i
WS.PageSetup.PrintArea = "$E$4:$N$&i" ' das geht so leider nicht!!!
Exit Sub
End If
Next i
Aber wie kann ich die Variable hier einfügen?
Vielen Dank für einen Lösungsvorschlag.
Torsten