Alle Zellen löschen, die Nicht einen wert enhalten
27.11.2007 20:07:00
Fabio
das Script löscht alle Zeilen, die "nicht" einen Zahlenwert 0,00 enthalten (in der Spalte D) - das Script habe ich aus der Forumssuche. (siehe unten)
Kann mir das jemand abändern, das der alle Zeilen löscht, die in der Spalte nicht das Wort "Fussball" enthält ? (noch besser, er würde die Zeilen mit "Fussball suchen und in ein neues Arbeitsblatt kopieren").
Ich weiß, kann man auch mit Autofilter machen. Ich will aber damit auch VBA ein wenig lernen - daher hier die Frage nach "Hilfe".
Danke!
Fabio
Sub test()
Dim rng As Range
Application.ScreenUpdating = False
With ActiveSheet
For Each rng In .Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If IsDate(rng) Then rng.EntireRow.Delete
Next 'rng
For Each rng In .Range("D1:D" & Cells(Rows.Count, 4).End(xlUp).Row)
If rng = 0 Then rng.EntireRow.Delete
Next 'rng
End With
Application.ScreenUpdating = True
End Sub