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é
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen