VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Farbindex von 1 bis 56 auflisten

Gruppe

Allgemein

Bereich

Farbe

Thema

Farbindex von 1 bis 56 auflisten

Problem

Wie kann ich alle Farbindex-Nummern von 1 bis 56 mit der zugehörigen Farbe in einer Tabelle auflisten lassen?

Lösung

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




StandardModule: basMain

Sub FarbIndices()
   Dim iCounter As Integer
   For iCounter = 1 To 56
      Cells(iCounter, 1).Interior.ColorIndex = iCounter
      Cells(iCounter, 2) = iCounter
   Next iCounter
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Farbe