Microsoft Excel

Herbers Excel/VBA-Archiv

Select Case mit Minuswert | Herbers Excel-Forum


Betrifft: Select Case mit Minuswert von: Gregor
Geschrieben am: 23.01.2012 16:46:27

Hallo zusammen

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

  

Betrifft: AW: Select Case mit Minuswert von: Josef Ehrensberger
Geschrieben am: 23.01.2012 16:49:28


Hallo Gregor,

ist doch logisch, bei To muss der kleinere Wert immer vorne stehen.

Dim Zeile As Integer, Spalte As Integer
Dim Wert As Integer
Dim Farbcode As Integer
Wert = -15 '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 -30 To -1
    Farbcode = 10
  Case -60 To -31
    Farbcode = 8
  Case -100 To -61
    Farbcode = 21
End Select





« Gruß Sepp »



  

Betrifft: AW: Select Case mit Minuswert von: Gregor
Geschrieben am: 23.01.2012 17:07:34

Hallo Sepp

Wie dumm von mir, danke für die Klärung des Irrtums.

Gruss Gregor


Beiträge aus den Excel-Beispielen zum Thema "Select Case mit Minuswert"