Farbigen Zellen Zahl zuweisen! | Herbers Excel-Forum

• Farbigen Zellen Zahl zuweisen! von markus vom 10.01.2010 23:42:49
• AW: Farbigen Zellen Zahl zuweisen! - von Daniel am 10.01.2010 23:49:02

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

Excel-Beispiele zum Thema "Farbigen Zellen Zahl zuweisen!"
Makros in Abhängigkeit vom Zellennamen aufrufen	Zellen auf Kommentar überprüfen
Spalten bedingt summieren und Zellen formatieren	Text aus Textbox in Zellen aufteilen
Zellen vergleichen und markieren	Zählen formatierter Zellen
Daten aus Textdatei gezielt in Zellen übernehmen	Zellen verbinden und trennen
Zellen bei Minuswerten schraffieren	Zeilen oberhalb der markierten Zellen einfügen