HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
bestimmte Hintergrundfarbe auf neutral
Volker

Hallo liebe Excelgemeinde, ich habe einen Code, in den in einer Spalte alle Hintergrundfarben gelöscht wird
Farbmarkierung in Spalte D wird gelöscht
Columns("D:D").Interior.ColorIndex = xlNone
Wie müsste der Code heissen wenn nur bestimmte Farben z.B. Rot (3) und Grün (43) gelöscht werden soll? Aber alle anderen Farben sollen erhalten bleiben. Kann mir da jemand helfen?

Beispiel mit For Each ...
Matthias

Hallo
Hier eine Variante
Sub Volker()
Dim rnG As Range
For Each rnG In Range("D:D")
If rnG.Interior.ColorIndex = 3 Or rnG.Interior.ColorIndex = 43 Then rnG.Interior.ColorIndex =  _
xlNone
Next
End Sub
Gruß Matthias
AW: Beispiel mit For Each ...
Volker

Hallo Matthies, erst einmal danke für die schnell Hilfe. Zur Not kann ich dein Makro nehmen, aber leider hatt ich gedacht, das man die Codezeile
Columns("D:D").Interior.ColorIndex = xlNone
ändern könnte.
Hast du oder Ihr da eine andere Lösung?
Matthies, danke dir.
AW: Beispiel mit For Each ...
Daniel

Hi
nein, nicht in dieser Excelversion.
da bleibt dir nichts anderes übrig, als jede Zelle einzeln zu prüfen
es sei denn, es gibt noch andere Merkmale an denen an erkennen kann, ob die Farbe zurückgesetz werden soll oder nicht, solche Merkmale wären z.B. Leerzellen, Zellen mit Formeln, Zellen mit Festwerten, Zellen mit Kommentaren,
Gruß, Daniel
AW: Beispiel mit For Each ...
Volker

Schade, ab welcher Version geht das ?
AW: Beispiel mit For Each ...
Daniel

Hi
ab Excel XP gibts die Möglichkeit, Zellen mit einer Bestimmten Formatierung über die .FIND-funktion zu suchen.
ich glaube aber nicht, daß das die Lösung für dein Problem vereinfacht.
vielleicht lässt sich damit die Laufzeit des Makros verkürzen aber sicherlich nicht der Programmcode vereinfachen.
Gruß, Daniel
ps das macht mir persönlich Excel halt so sympatisch, Inhalte sind wichtig, nicht die äussere Form ;-)
AW: Beispiel mit For Each ...
Volker

Danke, bis bald mal wieder