Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Legende eines Datenblattes einschließlich der Farbmarkierung
Gruppe
Farbe
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