Gruppe
Druck
Problem
Wie kann ich die Druckbereiche in Abhängigkeit des Inhalts einer Zelle verändern. Wenn in Zelle A1 "1. Bereich" steht, soll der 1., wenn dort "2. Bereich" steht, der 2. gedruckt werden.
StandardModule: basMain
Sub DruckeAlternativ()
If Range("A1").Value = "1. Bereich" Then
ActiveSheet.PageSetup.PrintArea = "A1:F20"
ElseIf Range("A1").Value = "2. Bereich" Then
ActiveSheet.PageSetup.PrintArea = "G1:L20"
Else
Exit Sub
End If
ActiveSheet.PrintPreview
End Sub