Gruppe
Allgemein
Bereich
Farbe
Thema
Legende eines Datenblattes einschließlich der Farbmarkierung
Problem
Wie kann ich die Legende eines Datenblattes einschliesslich der zugehörigen Farbmarkierung auslesen und übertragen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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