Ich suche eine Möglichkeit alle freien Zellen mit gleicher Farbe zu leeren!
Wer kennt einen Code dazu
Danke
Serge
Public Sub clear_cells()
dim i as long, j as long
for i = 1 to 65536
for j = 1 to 255
if sheets(1).cells(i,j).interior.Colorindex = 3 ' rot
sheets(1).cells(i,j).value = ""
endif
next j
next i
End Sub
greeze
e
Sub Entfärben()
Dim Zelle As Range
'Das Makro sucht nach rot eingefärbten Zellen
'Diese werden dann "entfärbt"
'Falls du eine andere Farbe hast, musst du die 3 durch den Farbcode
'der Farbe ersetzen, welche du entfernen willst
For Each Zelle In Worksheets(1).UsedRange
If Zelle.Interior.ColorIndex = 3 Then
Zelle.Interior.ColorIndex = 0
End If
Next Zelle
End Sub
Die Lösung mit den 2 Schleifen von Wenderhold ist sicherlich auch eine Variante, für meinen Geschmack von der Laufzeit aber zu lang.
Gruß René