Sub Vollständig() Set rngBereich = Range(Columns(15), Columns(30)).Select For Each Zelle In Bereich If rngBereich.Interior.ColorIndex = x1None Then Zelle.Offset(0, 31) = "Vollständig " End If Next End Sub