Farbwerte aus Datenfeld an Range übergeben
10.12.2003 20:03:56
RainerW
"VBA nein" stimmt nicht ganz - aber es kein anderer Eintrag für mich vorhanden.
zu meinem Anliegen:
Ich habe in einem Datenfeld Farbwerte gespeichert.
Diese Farbwerte möchte ich in die Zellen eintragen,
es sollen aber nicht die Nummern, sondern die entsprechenden Füllfarben
in den Zellen erscheinen.
Ist die Zeile
'r.Interior.ColorIndex = zelle
aktiv, wird immer nur der erste Farbwert in ALLE drei Zellen eingetragen.
Es wäre nett, wenn mir jemand auf die Sprünge helfen könnte.
Feierabendliche Grüße
Rainer
Private Sub ErmittelFarbWerte()
Dim r As Range, r1 As Range, r2 As Range
Dim i As Long
Dim zelle(1 To 3) As Byte
zelle(1) = 3 ' Rot
zelle(2) = 4 ' Grün
zelle(3) = 5 ' Blau
Set r1 = Worksheets("Tabelle1").Cells(2, 2)
Set r2 = r1.Offset(0, 2)
Set r = Worksheets("Tabelle1").Range(r1, r2)
'r.Interior.ColorIndex = zelle ' hier werden alle 3 Zellen rot ( ich auch langsam :-) )
r = zelle ' hier werden die korrekten Farbwerte eingetragen
End Sub
'So klappt es - ist aber bei 20 Farben für den Zellzeiger zu langsam
' In jede Zelle wieder die alte Füllfarbe eintragen
For i = 1 To 3
Cells(2, i).Interior.ColorIndex = Zelle(i)
Next i