Select Case mit Minuswert
Gregor
Ich habe folgenden Code:
Dim Zeile As Integer, Spalte As Integer
Dim Wert As Integer
Dim Farbcode As Integer
Wert = Cells(Zeile, Spalte).Value
Select Case Wert
Case 1 To 30
Farbcode = 6
Case 31 To 60
Farbcode = 45
Case 61 To 100
Farbcode = 3
Case -1 To -30
Farbcode = 10
Case -31 To -60
Farbcode = 8
Case -61 To -100
Farbcode = 21
End Select
Der Wert kann auch ein Minuswert sein (-36), leider wird dieser bei Select Case nicht interpretiert. Wie mache ich das?
Danke und Gruss
Gregor