VBA: eingefärbte Zellen "entfärben"
16.04.2020 10:01:44
Axel
ich möchte in einer Arbeitsmappe bei farbig markierten Zellen die Farbe wieder entfernen und auf den Defaultwert zurücksetzen und hatte gehofft, dies mit dem folgenden Codeschnipsel zu bewerkstelligen:
For Each wks In Worksheets
If Cells.Interior.ColorIndex [Größerzeichen] 0 Then
Cells.Interior.xlColorIndexNone
End If
Next
Das Größerzeichen konnte ich hier nicht darstellen, deshalb ausgeschrieben.
Leider passiert da gar nichts. Die Einfärbung resultiert auch aus einem Makro, wo Zellen mit Kommentaren farblich hinterlegt werden:
.Cells.SpecialCells _
(xlCellTypeComments).Interior.ColorIndex = 6
Es wird keine bedingte Formatierung angewandt.
Ich hatte zuerst versucht, Zellen mit Kommentaren zu identifizieren und diese zu entfärben:
With ws1
.Cells.SpecialCells _
(xlCellTypeComments).Interior.xlColorIndexNone
End With
Das hat aber nicht funktioniert.
Leider sind meine VBA-Kenntnisse noch deutlich ausbaufähig. Ich arbeite daran.
Hier bitte ich um fachkundige Unterstützung, wie ich das korrekt codieren muss, um eingefärbte Zellen wieder zu entfärben.
Vielen Dank vorab und beste Grüße
Axel