Wenn Zelle gewisse Farbe, dann formatieren

Forumthread: Wenn Zelle gewisse Farbe, dann formatieren
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Wenn Zelle gewisse Farbe, dann formatieren

31.05.2007 10: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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Wenn Zelle gewisse Farbe, dann formatieren

31.05.2007 11:02:00

Bertram
AW: Wenn Zelle gewisse Farbe, dann formatieren

31.05.2007 11:03:32

Hkao_Zi
AW: Wenn Zelle gewisse Farbe, dann formatieren

31.05.2007 11:20:51

Claudia
Gerne oT

31.05.2007 11:22:00

Bertram

AW: Wenn Zelle gewisse Farbe, dann formatieren

31.05.2007 11: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

AW: Wenn Zelle gewisse Farbe, dann formatieren

31.05.2007 11: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.

AW: Wenn Zelle gewisse Farbe, dann formatieren

31.05.2007 11: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 11:22:00

Bertram