Druckbereich
16.12.2003 10:00:15
AndreasS
ich möchte einen variablen Druckbereich einrichten. Der Druckbereich soll abhängig von einem bestimmten Zellinhalt sein. Am liebsten hätte ich eine Abfrage über eine Inputbox. Außerdem sollte die Tabellenüberschrift (für die einzelnen Druckbereiche) beibehalten werden.
Ich habe es schon über die vergabe von Namen probiert. Leider ohne Erfolg:
Läuft leider nicht...
Sub BereichMarkierenDrucken()
Dim Bereich As Range
Dim s As String
On Error Resume Next
Set Bereich = Application.InputBox(prompt:="Bitte den Druckbereich markieren", Type:=8)
If Bereich Is Nothing Then
MsgBox "Sie haben keinen Bereich ausgewählt", _
vbExclamation
Else
Bereich.Select
s = Selection.Address
ActiveSheet.PageSetup.PrintArea = s
End If
End Sub
Vielleicht kennt ja jemand eine Lösung für mein Problem.
Für alle Vorschläge und jede Hilfe bin ich dankbar.
Gruß
Andreas
Anzeige