Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: In allen Tabellen suchen nach grünen Zellen

In allen Tabellen suchen nach grünen Zellen
01.11.2005 09:24:09
egon
Hallo!
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
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In allen Tabellen suchen nach grünen Zellen
01.11.2005 09:39:17
Unbekannter
Welches Grün benutzt du?
AW: In allen Tabellen suchen nach grünen Zellen
01.11.2005 09:48:55
egon
Hallo Unbekannter!
Danke für die Anfrage.
Das GRÜN ist nicht ganz so wichtig. Könnte auch ROT oder sonstwas sein. Colorindex=3 (Rot)dann Colorindex=2 (weiss)
Danke Egon
AW: In allen Tabellen suchen nach grünen Zellen
01.11.2005 10:05:43
Unbekannter
Die Farben sind nur beispiele,die musst du halt noch anpassen

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

Gruß UN1
Anzeige
AW: In allen Tabellen suchen nach grünen Zellen
01.11.2005 10:06:30
Matthias
Hallo Egon,

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

Gruß Matthias
Anzeige
AW: In allen Tabellen suchen nach grünen Zellen
01.11.2005 10:21:42
egon
Hallo Matthias und Unbekannter!
Vielen Dank, klappt natürlich.
Gruß
Egon

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige