Herbers EXCEL-CD

suche ein Makro, mit dem ich farbliche Zellen abfragen und in eine neue Tabelle eintragen kann. Auf Herbers CD habe ich gefunden: Text-Index: 122000

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

Code eingefügt mit: Excel Code Jeanie

Allerdings finde ich die Zellen nicht, die mit der "Bedingten Formatierung" (z.B. Zelle = rot wenn Zellwert = 5) gefärbt sind.

Wie kann das makro geändert werden. Ferner wäre eine Erweiterung hilfreich, mit der nicht nur der Zellwert angegeben wird, sondern auch die Formel die in der Zelle ist.

Hoffentlich verständlich ausgedrückt und besten Dank im Voraus!!

mfg
Erich