ClearContents if Cell value
13.07.2005 16:21:44
Robert
Ich habe folgendes Problem und finde aufs Internet nicht was ich brauche.
Ich möchte eine Spalte auf einem Arbeitsblatt durchsuchen nach dem Wort "Not sent" Untenstehende Code habe ich benutzt um ganze Zeilen zu löschen wenn das Wort gefunden wurde. Dass funktioniert auch super. Ich möchte jetzt aber nicht dass Zeilen gelöscht werden sondern nur der Zellinhalt "Not sent" Ich kriege es aber nicht hin diesen Code so umzuschreiben dass es dass macht. Hoffentlich könnt ihr mich weiter helfen.
Grüsse
Robert
Worksheets("Tracking").Activate
ClearContent = "Not sent"
With ActiveSheet
If .AutoFilterMode = False Then .Cells(1, 1).AutoFilter
.Columns("I").AutoFilter Field:=9, Criteria1:=ClearContent
With ActiveSheet.AutoFilter.Range
On Error Resume Next
Set rng = .Offset(1, 0).Resize.(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Not rng Is Nothing Then rng.EntireRow.delete
End With
.AutoFilterMode = False
End With