Druckbereich
23.12.2003 07:26:45
Bernd
diese Beitrag bezieht sich auf meine Frage vom 20.12.03:
https://www.herber.de/forum/messages/354685.html
habe etwas gefunden:
Sind im Bereich von B1:G55 Werte enthalten funktioniert alles wunderbar, aber
wenn B56 leer ist und C56:G56 sind ausgefüllt, dann wird der Druckbereich für C1:G56 festgelegt. B1:B55 übergeht das Macro.
Hat jemand eine Lösung?
Gruß
Bernd
Sub Druckbereich()
On Error Resume Next
Dim wks As Worksheet
Dim endrow%, i As Integer
Set wks = Sheets(1)
wks.Select
endrow = Cells(Cells.Rows.Count, 1).End(xlUp).Row 'Letzte Zeile mit Inhalt
i = 1
Do
i = i + 1
Loop Until Cells(endrow, i) <> ""
If i >= 257 Then
i = 1
End If
Set druckrange = Range(Cells(1, 1), Cells(endrow, i))
ActiveSheet.PageSetup.PrintArea = druckrange.Address
If druckrange Is Nothing Then
MsgBox "Konnte keinen Druckbereich festlegen..."
End If
End Sub