Zelle löschen wenn rot
13.09.2007 07:37:00
Erwin
ich habe einen Code, mit dem ich doppelte Einträge in einer Spalte erkenne. Anschließend sortiere ich mit nachfolgendem Makro flexibel je nach ausgewählter Spalte und je nach Farbauswahl die Tabelle.
Sub M_4_3_Sortieren_nach_Farbe()
Dim Zelle As Range, S As Integer, cx As Integer, z As Long, lz As Long
Dim msg As Integer, SOrder As Integer, Spalte As Range
lz = ActiveSheet.UsedRange.Rows.Count
On Error GoTo Ende
Set Spalte = Application.InputBox(prompt:="Klicken Sie die gewünschte Spalte an.", Type:=8)
Set Zelle = Application.InputBox(prompt:="Klicken Sie eine Zelle mit der gewünschten Farbe an!", _
Type:=8)
cx = Zelle.Interior.ColorIndex
S = Spalte.Column
For z = 1 To lz
If Cells(z, S).Interior.ColorIndex = cx Then
Cells(z, 256) = 99
Else
Cells(z, 256) = Cells(z, S).Interior.ColorIndex
End If
Next
SOrder = 2
Columns("A:IV").Sort Key1:=Range("IV1"), Order1:=SOrder, Header:=xlNo
Columns(256).Clear
Ende:
End Sub
Ich benötige nun ein weiteres Makro, bei dem auch wiederum die Spalte und die Farbe ausgewählt werden kann (also so in etwa wie oben), damit ich alle Zelleninhalte (nicht Zeilen), der ausgewählten Spalte, welche die gewünschte Farbe hat (meistens rot, also ColorIndex = 3), löschen kann.
Wer kann mir bitte helfen
Grüße Erwin