Nur bestimmte farbige Zellen in 'keine Füllfarbe'

Computer: Software & Programmierung Visual Basic
#1

…umformatieren und den Inhalt der gefundenen Zelle löschen!

Hallo erstmal, ich hoffe, bin hier richtig, ist eigentlich VBA.

habe ein, wie schon in „Titel“ benanntes Problem: im Zellbereich CT90:smiley:Y120 sind verschieden farbige Zellen,die unter anderem mit „Interior.ColorIndex = 7, 3, 36, 53, 41, 8, 46 oder 15“, formatiert sind. Die Zellen sollen nun in einer Schleife gesucht werden und in „Interior.ColorIndex = xlNone“ umformatiert werden, zusätzlich soll der Zellinhalt noch gelöscht werden. Wenn bei dem Durchlauf jedoch das Format „Interior.ColorIndex = 50, 39, 35 oder xlNone“ gefunden wird, soll er diese Zelle „in Ruhe lassen“ und zur nächsten Zelle gehen. Weiss jemand Rat ?, da mein unten reinkopierter Code ALLE Zellen in „xlNone“ formatiert. Das löschen des Inhaltes der gefundenen Zelle klappte auch nicht so, wie ich wollte.

Code:

For Each C In Worksheets(„Tabelle1“).Range(„CT90:smiley:Y120“)
If C.Interior.ColorIndex = 7 Or 3 Or 36 Or 53 Or 41 Or 8 Or 46 Or 15 = True Then
'C.Interior.ColorIndex = xlNone

ElseIf C.Interior.ColorIndex = 50 Or 39 Or 35 Or xlNone = True Then End

End If

Next C

#2

…umformatieren und den Inhalt der gefundenen Zelle
löschen!

Hallo nochmal,

habe die Lösung dank Hajo in einem anderem Forum schon erhalten und möchte sie hier nicht vorenthalten:

Code:

Sub bestimmte_farbige_Zellen_loeschen ()

Dim C As Range

For Each C In Worksheets(„Tabelle1“).Range(„CT90:smiley:Y120“)
Select Case L.Interior.ColorIndex
Case 1, 7, 3, 36, 53, 41, 8, 46, 15, 35, xlNone
C.Interior.ColorIndex = xlNone
C = „“ 'Zelleninhalt der betreffenden Zellen löschen
C.ClearComments 'Kommentare der betreffenden Zellen löschen

End Select

Next C

End Sub

Gruss
Thomas