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

Forumthread: Wenn Zelle gewisse Farbe, dann formatieren

Wenn Zelle gewisse Farbe, dann formatieren
31.05.2007 08:57:44
Claudia
Hi,
habe folgendes Problem:
in Spalte B habe ich Zellen mit den Farben gelb und grün. Ich will per Makro eine Neuformatierung und zwar sollen die gelben Zellen keine Farbzuweisung haben, die grünen sollen so bleiben.
Danke im Voraus für Eure Hilfe.
Gruß, Claudia

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Zelle gewisse Farbe, dann formatieren
31.05.2007 09:02:00
Bertram
Hallo Claudia,
meinst du so?

Sub Entfärben()
Dim Zelle As Range
For Each Zelle In ActiveSheet.Columns(2).Cells
If Zelle.Interior.ColorIndex = 6 Then Zelle.Interior.ColorIndex = xlNone
Next Zelle
End Sub


Gruß
Bertram

Anzeige
AW: Wenn Zelle gewisse Farbe, dann formatieren
31.05.2007 09:03:32
Hkao_Zi
Hallo Claudia,
wurde die Farbe per bedingter Formatierung gesetzt oder von Hand.
Das Problem ist nur per VBA zu lösen, dazu bräuchte man aber die Farbindexnummer

Sub Claudia()
MsgBox ActiveCell.Interior.ColorIndex
End Sub


Ich vermute mal es soll für den benutzten Bereich der aktuellen Tabelle sein.

Anzeige
AW: Wenn Zelle gewisse Farbe, dann formatieren
31.05.2007 09:20:51
Claudia
Hi,
vielen Dank für die Rückmeldungen, ja, die Formatierung ist per Hand gesetzt, nicht durch bedingte Formatierung.
Die Lösung von Bertram ist genau was ich wollte, nochmals Danke an Euch beide.
Schönen Tag noch,
Gruß, Claudia

Gerne oT
31.05.2007 09:22:00
Bertram

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige