Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Gesamte Zeile löschen wenn

Gesamte Zeile löschen wenn
11.03.2019 18:32:24
David
Hallo,
ich brauche ein Macro in dem Zeile J1:J11500 auf den Inhalt "Erledigt" überprüft wird.
Jede Zeile in der in Zelle J "Erledigt zuu finden ist soll anschliessend gelöscht werden.
Ist so etwas möglich?
Vielen Dank schonmal.
David
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gesamte Zeile löschen wenn
12.03.2019 17:48:14
David@rittgardt.de
HI,
vielen Dank.
Das Thema hat sich damit erledigt.
Ich wünsche einen schönen Abend.
AW: Gesamte Zeile löschen wenn
11.03.2019 18:55:37
Thomas
Hi David,
füg das in deinen Tabellenblatt Code ein:
Sub KillErledigt()
Dim LastRow As Integer
Dim i As Integer
LastRow = ActiveSheet.Cells(Rows.Count, 10).End(xlUp).Row 'letzte Zeile in J ermittlen
For i = LastRow To 1 Step -1
If Cells(i, 10) = "Erledigt" Then
ActiveSheet.Rows(i & ":" & i).Delete Shift:=xlUp
End If
Next i
End Sub
Steht in der Zelle nur "Erledigt" oder noch mehr?
Gruß Thomas
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige