Ich möchte in einer Tabelle diejenigen Zeilen mit einem "x" markieren, die eine rote oder grüne Hintergrundfarbe haben (die restlichen Zeilen sind nicht gefärbt). Wer kann mir helfen? Schon mal vielen Dank im voraus!
Sub test()
Dim Zelle As Object
For Each Zelle In Selection
If Zelle.Interior.ColorIndex <> xlNone Then
Zelle.Value = "x"
End If
Next
End Sub
Sub Makro1()
ad = Selection.SpecialCells(xlCellTypeLastCell).Address
Set bereich = Range("A1:" & ad)
For Each cell In bereich
If cell.Interior.ColorIndex <> xlNone Then cell.Value = "x"
Next
End Sub