Farben-Array? Aufzählung vereinfachen
25.05.2005 06:47:26
Erich M.
möchte Zahlen von 1 bis 56 farblich kennzeichnen und habe derzeit folgende Lösung;
geht das auch einfacher / übersichtlicher (per ARRAY?):
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("B2:BS500")
For Each RaZelle In Range(Target.Address)
' überprüfen ob Zelle im vorgegebenen Bereich
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
Select Case RaZelle.Value
Case 1
RaZelle.Interior.ColorIndex = 1
Case 2
RaZelle.Interior.ColorIndex = 2
Case 3
RaZelle.Interior.ColorIndex = 3
Case 4
RaZelle.Interior.ColorIndex = 4
Case 5
RaZelle.Interior.ColorIndex = 5
Case 6
RaZelle.Interior.ColorIndex = 6
Case 7
RaZelle.Interior.ColorIndex = 7
Case 8
RaZelle.Interior.ColorIndex = 8
Case 9
RaZelle.Interior.ColorIndex = 9
Case 10
RaZelle.Interior.ColorIndex = 10
Case 11
RaZelle.Interior.ColorIndex = 11
Case 12
RaZelle.Interior.ColorIndex = 12
Case 13
RaZelle.Interior.ColorIndex = 13
Case 14
RaZelle.Interior.ColorIndex = 14
Case 15
RaZelle.Interior.ColorIndex = 15
Case 16
RaZelle.Interior.ColorIndex = 16
Case 17
RaZelle.Interior.ColorIndex = 17
' Case 18 bis 56
' RaZelle.Interior.ColorIndex = ...
'' usw.
Case Else
RaZelle.Interior.ColorIndex = 0
End Select
End If
Next RaZelle
Set RaBereich = Nothing
End Sub
Code eingefügt mit: Excel Code Jeanie
Besten Dank für eine Hilfe!
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
EXCEL und Lottogewinne machen glücklich: http://48678.rapidforum.com