Werte nach Farbgebung durch bedingte Formatierung löschen
28.12.2019 13:39:40
Thomas
bräuchte wieder einmal Eure Hilfe.
Ich habe ein Tabelle, in der sich die Zellen in die Werte eingetragen werden, über eine bedingte Formatierung einfärben.
Nun sollen die Werte aus alle Zelle, die sich begründet durch die bedingte Formatierung eingefärbt haben, gelöscht werden.
Ich habe einen VBA Code geschrieben, der leider nur für "Händisch" markierte Zellen funktioniert.
Hat jemand eine Idee?
Danke im Voraus
Gruß ThomasW
Sub Rueckfrage()
Dim Range As Range
If MsgBox("Werte wirklich löschen?", vbYesNo) = vbYes Then
Application.DisplayAlerts = False
For Each Range In ActiveSheet.UsedRange
If Range.Interior.Color = RGB(217, 217, 217) Then
Range.ClearContents
End If
Next Range
Application.DisplayAlerts = True
End If
End Sub
Anzeige