VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten

Gruppe

Allgemein

Bereich

Liste

Thema

Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten

Problem

Wie kann ich alle Zellen mit Hintergrundfarbe einer Tabelle in einem Arbeitsblatt einer neuen Arbeitsmappe mit Angaben über Wert, Adresse, Hintergrundfarbe und Farbindes auflisten lassen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: basMain

Sub MarkierungFinden()
   Dim rngAct As Range, rngSource As Range
   Dim iRow As Integer
   Application.ScreenUpdating = False
   Set rngSource = ActiveSheet.Range("A1:P100")
   Workbooks.Add
   For Each rngAct In rngSource
      If rngAct.Interior.ColorIndex <> xlNone Then
         iRow = iRow + 1
         Cells(iRow, 1) = rngAct.Address(False, False)
         Cells(iRow, 2) = rngAct.Value
         Cells(iRow, 3).Interior.ColorIndex = _
            rngAct.Interior.ColorIndex
         Cells(iRow, 4) = Cells(iRow, 3).Interior.ColorIndex
      End If
   Next rngAct
   Columns.AutoFit
End Sub

    


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