Gruppe
Allgemein
Problem
Wie kann ich die Legende eines Datenblattes einschliesslich der zugehörigen Farbmarkierung auslesen und übertragen?
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