Hi

wenn die Temperatur in Zelle A1 steht könnte es so gehen

Sub test()
    Select Case Range("A1").Value
        Case Is < -10
            MsgBox "Bleib zu Hause"
        Case -10 To -0
            MsgBox "warm anziehen"
        Case 0 To 10
            MsgBox "Lust zu joggen?"
        Case Is > 15
            MsgBox "Fahr Fahrrad"
    End Select
End Sub

MfG Tom