Excel und VBA: Formeln, Programmierung, Lösungen

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