Microsoft Excel

Herbers Excel/VBA-Archiv

Farbigen Zellen Zahl zuweisen! | Herbers Excel-Forum


Betrifft: Farbigen Zellen Zahl zuweisen! von: markus
Geschrieben am: 10.01.2010 23:42:49

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

  

Betrifft: AW: Farbigen Zellen Zahl zuweisen! von: Daniel
Geschrieben am: 10.01.2010 23:49:02

HI
natürlich. So wie du den Colorindex zuweisen kannst, kannst du ihn auch abfragen:

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(F)
        If Zelle.Interior.Colorindex = F(N) Then
            Zelle.Value = W(N)
            Exit For
        End If
    Next N

Next Zelle
End Sub
in das Array W musst du halt statt der Buchstaben die Zahlen reinschreiben, die bei der entsprechenden Farbe zugewiesen werden soll.

Gruß, Daniel


Beiträge aus den Excel-Beispielen zum Thema "Farbigen Zellen Zahl zuweisen!"