Microsoft Excel

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