Hallo Leute
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é