Habe ein Makro von L. Vira erhalten und etwas geändert,
damit alle Zellen mit Indikator eine bestimmte Farbe erhalten
(siehe Beitrag vom 17.07.2001)
Sub IF_COMMENT()
Dim c As Range
Dim aC As Range
Set aC = ActiveCell
On Error GoTo ende 'Es sind keine Kommentare vorhanden
Cells.SpecialCells(xlCellTypeComments).Select
For Each c In Selection
c.Interior.ColorIndex = 38
Next
ende:
aC.Select
Set aC = Nothing
End Sub
Ich bräuchte aber auch die Umkehrung - d.h Zellen haben unterschiedliche Farben - ich setze diese auf einen Wert, wenn
Indikator vorhanden.
Dann sollen aber die vorherigen, unterschiedlichen Farben wieder her --> ihr kennt das --> kleinen Finger hab ich, jetzt nehm ich die ganze Hand :-)
Wäre nett wenn jemand nochmal weiterhilft - stehe noch ganz am Anfang (aber bald helf ich dann auch - versprochen)