Dimensionieren von RGB-String
01.03.2004 10:35:49
jochen
ich möchte mit einem kleinen Makro Anpassungen an der Farbpalette vornehmen.
Dazu habe ich in einem Scheet die RGB-Codes hinterlegt. So steht zum Beispiel in Zelle A1 "RGB(0,0,0)".
Nun möchte ich mittels Schleife den verschieden Color-Positionen diese RGB's zuweisen.
Offensichtlich habe ich jedoch nicht die richtige Dimensionierung ?
Kann mir bitte jemand einen Tipp geben?
Sub farbpalette_BBI_1()
Dim farbe
Application.ScreenUpdating = False
For i = 1 To 56
farbe = [RGB_Col].Cells(i + 1, 1)
With ActiveWorkbook
.Colors(i) = farbe
End With
Next i
End Sub
Danke.
Jochen
Anzeige