VBA LZF16 Ausdruck zu komplex (?)
16.10.2018 09:54:29
Dome
Ich habe folgenden Code in einem Modul liegen und erhalte den Laufzeitfehler 16: Ausdruck zu komplex. Wo ist denn hier der Fehler?
In den Zellen T6-T10 in der Mappe "NG GA" befinden sich Zahlen..
Option Explicit
Function fctFarbe(dblWert As Double) As Long
Select Case dblWert
Case Is > ThisWorkbook.Worksheets("NG GA").Range("T10").Value
fctFarbe = RGB(70, 169, 180)
Case Is >= ThisWorkbook.Worksheets("NG GA").Range("T9").Value
fctFarbe = RGB(121, 186, 196)
Case Is >= ThisWorkbook.Worksheets("NG GA").Range("T8").Value
fctFarbe = RGB(162, 205, 200)
Case Is >= ThisWorkbook.Worksheets("NG GA").Range("T7").Value
fctFarbe = RGB(198, 223, 222)
Case Is > ThisWorkbook.Worksheets("NG GA").Range("T6").Value
fctFarbe = RGB(228, 239, 242)
Case Else
fctFarbe = RGB(255, 0, 0)
End Select
End Function
Wenn ich die Werte eintrage funktioniert es, nur möchte ich das Ganze variabel haben und spreche deshalb Zellen an, die sich immer wieder ändern.
Option Explicit
Function fctFarbe(dblWert As Double) As Long
Select Case dblWert
Case Is > 689572
fctFarbe = RGB(70, 169, 180)
Case Is >= 628551
fctFarbe = RGB(121, 186, 196)
Case Is >= 426544
fctFarbe = RGB(162, 205, 200)
Case Is >= 162708
fctFarbe = RGB(198, 223, 222)
Case Is > 0
fctFarbe = RGB(228, 239, 242)
Case Else
fctFarbe = RGB(255, 0, 0)
End Select
End Function
Besten Dank für Eure Ideen.LG
Dome