Farbigen Zellen Zahl zuweisen!
10.01.2010 23:42:49
markus
Hallo zusammen,
kann man dieses Makro so drehen, das der Farbe eine bestimmte Zahl zugewiesen wird?
Danke und Gruß Markus
Sub Farbe()
Range("D5:GE48").Select
Selection.Interior.ColorIndex = xlNone
Dim N, Zelle, W, F
W = Array("SC", "E", "KK", "MS", "UB")
F = Array(43, 27, 28, 15, 26, 41)
For Each Zelle In Range("D5:GE48")
For N = 0 To UBound(W)
If Zelle = W(N) Then
Zelle.Interior.ColorIndex = F(N)
Exit For
End If
Next N
Next Zelle
End Sub