Sub monatAlsQuartal()
    Dim monatsZahl As Integer
    Dim quartal  As Integer
    monatsZahl = InputBox("Geben Sie hier den Monat als Zahl ein")
    Select Case monatsZahl
        Case 1 To 3
            quartal = 1
        Case 4 To 6
            quartal = 2
        Case 7 To 9
            quartal = 3
        Case 10 To 12
            quartal = 4
        Case Else
            quartal = 0
    End Select

    If quartal <> 0 Then
        MsgBox ("Das entsprechende Quartal zu Ihrer Eingabe lautet:" & quartal)
    Else
        MsgBox ("Die Eingabe entsprach keinem Monat")
    End If
End Sub