Farben suchen und ersetzen

09/02/2009 - 21:53 von Lothar Wesemann | Report spam
Hallo!

Weiss jemand , wie man in einem Tabellenblatt z.B alle Zellen mir roter
Füllfarbe findet, und diese mit grüner Füllfarbe ersetzt?
Excel2000SP3

Gruß

Lothar
 

Lesen sie die antworten

#1 Michael Franke
10/02/2009 - 05:17 | Warnen spam
Hallo Lothar,

On 9 Feb., 21:53, "Lothar Wesemann" wrote:
Hallo!

Weiss jemand , wie man in einem Tabellenblatt z.B alle Zellen mir roter
Füllfarbe findet, und diese mit grüner Füllfarbe ersetzt?
Excel2000SP3

Gruß

Lothar



z.B. so:

Sub Farbe()
Dim rngZelle As Range
For Each rngZelle In ActiveSheet.UsedRange
If rngZelle.Interior.Color = vbRed Then
rngZelle.Interior.Color = vbGreen
End If
Next
End Sub

Gruß, Michael

Ähnliche fragen