Manche haben Heute frei...
Ich möchte in allen Tabellen die Seite3 bis Seite8 heissen nach Zellen mit der Farbe GRÜN jeweils in der Spalte 8 suchen.
Wenn gefunden auf GELB setzen
Wie krieg ich das hin?
Schönen Feiertag
Egon
Sub farben()
Dim a, b
For b = 3 To Sheets.Count
For a = 1 To sheets(b).Cells(Rows.Count, 8).End(xlUp).Row
If Sheets(b).Cells(a, 8).Interior.ColorIndex = 3 Then
Sheets(b).Cells(a, 8).Interior.ColorIndex = 2
End If
Next a
Next b
End Sub
Sub FarbenErsetzen()
Const FindCol = 3
Const ReplaceCol = 5
Dim sh As Worksheet, z As Range
Dim i As Integer
For i = 3 To 8
Set sh = Sheets("Seite" & i)
For Each z In sh.UsedRange
If z.Interior.ColorIndex = FindCol Then
z.Interior.ColorIndex = ReplaceCol
End If
Next z
Next i
End Sub