Hallo Sabina kann sein, aber in der Spalte AG5 bis AG28 sind einige Zellen gelben Inhalt aber jetzt ist nur das die Ausgabe nicht zu sehen ist in Spalte AH, es brauchten auch nur die Zellen ausgegeben werden die mit gelben Inhalt haben wenn möglich.
Die vorherige Fehlerangabe war nur ein doppelte Dim Variable, ist behoben
Gruß Waldi
Der jetzige Code:
Dim A As Range, strSuch As Integer, lngAnz As Integer, rngF As Range
Dim WS2 As Worksheet
Set WS2 = Sheets(1)
For Each A In Range("AG5:AG28")
If A.Interior.ColorIndex = 6 Then
A.Copy WS2.Range("AH65536").End(xlUp).Offset(1, 0)
End If
Next
Columns("AH:AH").Interior.ColorIndex = 0
|