Gruppe
Allgemein
Problem
In Spalte A befinden sich 35 Labels aus der Steuerelementtoolbox, die mit verschiedenen Gelb-Schattierungen belegt werden können. In Spalte B werden die möglichen Zellfarben eingetragen.
StandardModule: Modul1
Sub SetLabelColors()
Dim oLabel As OLEObject
Dim iCounter As Integer
For iCounter = 1 To 25
ActiveSheet.OLEObjects(iCounter).Object.BackColor = RGB(255, 255, 255 - iCounter * 10)
'ActiveSheet.OLEObjects(iCounter).Object.BackColor = RGB(255, 255, 255)
Next iCounter
End Sub
Sub SetCellColors()
Dim iCounter As Integer
For iCounter = 1 To 56
Cells(iCounter, 2).Interior.ColorIndex = iCounter
Next iCounter
End Sub