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

Microsoft Office 2003-2019 => Excel => Thema gestartet von: SAR-Cux am April 15, 2015, 20:05:55 Nachmittag

Titel: VBA Druckbereich per Makro ausgewählt, druckt aber nicht
Beitrag von: SAR-Cux am April 15, 2015, 20:05:55 Nachmittag

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

Titel: Antw: VBA Druckbereich per Makro ausgewählt, druckt aber nicht
Beitrag von: gmg-cc am April 16, 2015, 14:08:26 Nachmittag

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.