Druckbereich variabel
11.10.2003 16:34:02
Erich M.
habe in der Recherche folgenden Code gefunden, der einen
variablen Druckbereich ab A1 ermiteln soll:
Sub atester()
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
Allerdings erhalte ich diese Fehlermeldung,
für die Zeile "Set druckrange...":
Fehler beim kompilieren
Objekt erforderlich
Besten Dank für eine Hilfe!
mfg
Erich
Anzeige