Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Label und Zellen farbig markieren

Gruppe

Farbe

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.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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