Farbige Zellen finden...
06.03.2013 10:25:14
F.W.
ich steh irgendwie auf der Leitung....
Ich habe eine Arbeitsmappe wo in der Tabelle1 in der Zeile 4 manche Zellen farbig sind. In die farbigen Zellen möchte ich gerne ein X einfügen lassen um anschließend alle nicht farbigen bzw. Zellen ohne X ausblenden zu lassen.
Anbei der Code, der zwar keine Fehlermeldung generiert aber nicht das macht was ich möchte:
Sub Farbe_finden()
Sheets("Tabelle1").Activate
Dim Zelle, Bereich$, Farbe As Byte
Bereich = "A4:M4"
Farbe = 37
For Each Zelle In Range(Bereich).Cells
If Zelle.Interior.ColorIndex = 37 Then Zelle = x
Next
End Sub