Gruppe
Allgemein
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?
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