Anzeige
Archiv - Navigation
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
468to472
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ganze Zeilen löschen, wenn ...

Ganze Zeilen löschen, wenn ...
16.08.2004 21:52:37
Tom
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ganze Zeilen löschen, wenn ...
Ramses
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
AW: Ganze Zeilen löschen, wenn ...
Tom
Vielen Dank - funktioniert wunderbar!
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige