Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub LegendeAuslesen()
   Dim iCol As Integer, iRow As Integer
   iCol = 1
   With Worksheets("Daten")
      Do Until IsEmpty(.Cells(1, iCol))
         iRow = iRow + 1
         Cells(iRow, 1).Interior.Color = _
            .Cells(1, iCol).Interior.Color
         Cells(iRow, 2).Value = .Cells(2, iCol).Value
         iCol = iCol + 1
      Loop
   End With
End Sub

    

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