Farb Search&Replace Script

Forumthread: Farb Search&Replace Script
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Farb Search&Replace Script

24.01.2006 15:07:25

hans

hallo :)
ist es möglich ein makro zu schreiben, mit dem ich innerhalb eine excel tabelle nach einer bestimmten farbe suchen kann (blau) und diese automatisch durch eine andere farbe ersetze (dunkelblau) ?

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Farb Search&Replace Script

24.01.2006 15:26:34

Peter

AW: Farb Search&Replace Script

24.01.2006 15:26:34

Peter

Servus,
so in etwa. Funktioniert nur wenn die Färbung nicht über bed. Formatierung kommt.

Option Explicit
Sub Makro1()
Dim rng As Range, myrange As Range
Dim intBlau As Integer, intdklBlau As Integer
Set myrange = Range("A1:B10") 'Anpassen
intBlau = 5 'Anpassen
intdklBlau = 11 'Anpassen
With Sheets("Tabelle1") 'Anpassen
For Each rng In .Range(myrange.Address)
If rng.Interior.ColorIndex = intdklBlau Then _
rng.Interior.ColorIndex = intBlau
Next
End With
End Sub

MfG Peter