Herbers Excel/VBA-Archiv

Ganze Zeilen löschen, wenn ...

• Ganze Zeilen löschen, wenn ... von Tom vom 16.08.2004 21:52:37
• AW: Ganze Zeilen löschen, wenn ... - von Ramses am 16.08.2004 22:00:29
  • AW: Ganze Zeilen löschen, wenn ... - von Tom am 17.08.2004 09:10:46

Betrifft: Ganze Zeilen löschen, wenn ... von: Tom
Geschrieben am: 16.08.2004 21:52:37

Hallo,

wie kann man mit Hilfe von VBA erreichen, daß alle zeilen in einem Tabellenblatt gelöscht werden, wenn folgende Kriterien erfüllt sind:

In Spalte E steht 1996 und in Spalte F steht 6

Alle Zeilen, die beides beinhalten sollen unwiderruflich gelöscht werden.

Wer hat ne Lösung?

Gruß und danke vorab
Tom

Betrifft: AW: Ganze Zeilen löschen, wenn ... von: Ramses
Geschrieben am: 16.08.2004 22:00:29

Hallo

"...Alle Zeilen, die beides beinhalten sollen unwiderruflich gelöscht werden...."

Das hört sich ja furchtbar an ;-)
Nun denn..

Sub Def_Delete_of_Rows()
Dim i As Long
For i = Cells(65536, 5).End(xlUp).Row To 1 Step -1
    If Cells(i, 5) = 1996 And Cells(i, 6) = 6 Then
        Rows(i).Delete
    End If
Next i
End Sub

Gruss Rainer




Betrifft: AW: Ganze Zeilen löschen, wenn ... von: Tom
Geschrieben am: 17.08.2004 09:10:46

Vielen Dank - funktioniert wunderbar!

Beiträge aus den Excel-Beispielen zum Thema "Ganze Zeilen löschen, wenn ..."