Hallo,
wenn die Färbung durch eine bedingte Formatierung zu Stande kommt, würde ich eher sahen, nimm die Werte in den Zellen und überprüfe lieber die.
Farben sind immer so eine Sache. Habe den Code mal ergänzt ... läuft erst ab Excel 2010.
ColorIndex sollte man nicht verwenden, der kann auf jedem PC anders eingestellt sein.
Dim rngA As Range, lngAnz As Long, rngF As Range
Dim WS2 As Worksheet
Set WS2 = Worksheets(1)
For Each rngA In Range("AG5:AG28")
If rngA.DisplayFormat.Interior.Color = RGB(0, 255, 0) Then 'oder wie auch immer deine Farbe lautet
rngA.Copy WS2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
Next
Columns("AH:AH").DisplayFormat.Interior.Color = 0 ' das ist Schwarz -> RGB(0, 0, 0) !!!
Sabina
|