Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

HAllo zusammen,

ich habe ein kleines Poblem bei der Ausgabe eines Druckbereichs.
Zum TEsten habe ich es derzeit so um gesetzt, aber es kommt immer ein Fehler.
Kann jemand helfen??

Sub drucken()

Dim monateingabe
Dim bereich As Range

monateingabe = InputBox("Welcher Monat soll gedruckt werden???" & vbCrLf & vbCrLf & "Eingabe mit der Zahl des Monats." & vbCrLf & vbCrLf & "z.B." & vbCrLf & "Januar = 1" & vbCrLf & "Februar = 2" & vbCrLf & "März = 3")

Select Case monateingabe

Case monateingabe = "1"
    bereich = ("$A$1:$O$5")
    bereich = ("$A$6:$O$36")
    MsgBox bereich

Case monateingabe = "2"
    bereich = ("$A$32:$A$60")
   
Case monateingabe = "3"
    bereich = ("$A$61:$A$92")

Case Else
    MsgBox ("OK bis hierhin")

End Select

ActiveSheet.PageSetup.PrintArea = "1"
ActiveSheet.PrintOut



End Sub