Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1680to1684
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
Inhaltsverzeichnis

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

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.
Anzeige
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

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige