Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
500to504
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
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen löschen wenn Wert

Zeilen löschen wenn Wert
15.10.2004 11:25:02
Kai
Hey zusammen,
ich bräuchte mal eure Hilfe.
Ich habe hier ein Makro das mir alle Zeilen löscht wo in Spalte A
in den Zellen 100 steht.

Sub löschen()
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
On Error Resume Next
If Cells(i, 1).Value = "100" Then
Rows(i).Delete
End If
Next
End Sub

Nun möchte ich aber das alle Zeilen gelöscht werden die nicht 218 in Spalte A
enthalten. Die Werten gehen "leere Zelle" bis 300.
Das müsste doch an dieser Stelle passieren:
If Cells(i, 1).Value = "100" Then
aber wie?
Danke

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen wenn Wert
Bert
If Not Cells(i, 1)= 218 Then
Bert
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige