Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Artikel mit den in einem Farbindex hinterlegten Farben markieren

Gruppe

Farbe

Problem

Auf Schaltflächenklick sollen die Artikel in Spalte A mit den in Tabelle Farbindex hinterlegten Hintergrundfarben versehen werden.

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

StandardModule: Modul1

Sub SetColors()
   Dim wks As Worksheet
   Dim vColor As Variant
   Dim iRow As Integer, iRowL As Integer
   Set wks = Worksheets("FarbIndex")
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For iRow = 1 To iRowL
      vColor = Application.Match(Cells(iRow, 1).Value, wks.Columns(1), 0)
      If Not IsError(vColor) Then
         Cells(iRow, 1).Interior.ColorIndex = wks.Cells(vColor, 2).Value
      End If
   Next iRow
End Sub