Ich habe eine Spalte mit ca. 25'000 Zellen. Einigen gab ich die Füllfarbe Gelb.
Ist es irgendwie möglich, dass ich alle nicht formatierten Zellen dieser Spalte löschen kann?
Danke Gruss
Sub test()
Dim rngCell As Range
For Each rngCell In Columns("A:A")
If rngCell.Interior.ColorIndex = 6 Then 'oder 24
rngCell.Delete
End If
Next
End Sub
Sub test()
Dim rngCell As Range
For Each rngCell In Range("A1:A25000")
If WorksheetFunction.CountIf(Columns(1), rngCell) > 1 Then
rngCell.Delete
End If
Next
End Sub
Sub test()
Dim rngCell As Range
dim rngBereich as range
set rngBereich = Range("B1:B25000")
For Each rngCell In rngBereich
If WorksheetFunction.CountIf(rngBereich, rngCell) < 2 Then
rngCell.Delete
End If
Next
End Sub
Sub Remove_Single_Value()
Dim i As Integer
Application.ScreenUpdating = False
For i = Range("B65536").End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(i, 2)) > 0 Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
Sub Remove_Single_Value()
Dim i As Integer
Application.ScreenUpdating = False
For i = Range("B65536").End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(i, 2)) > 0 Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub