VBA Druckbereich per Makro ausgewählt, druckt aber nicht

[SAR-Cux]

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

[gmg-cc]

Moin,

ein sehr passender Nick! Dann wollen wir mal suchen und retten, was zu retten ist ...

Versuche es einmal so:

Code: [Auswählen]

Select Case Cint(monateingabe)

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

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

Case Else
    MsgBox ("OK bis hierhin")

End Select
Allerdings wäre eine vorherige Prüfung sinnvoll, ob wirklich nur ein numerischer Wert eingegeben wurde. - Der Code ist ungeprüft, da ich nicht irgend etwas nachbaue, was dann bei mir doch anders aussieht wie im Original.