186 Aufrufe
Gefragt in Tabellenkalkulation von slorenz Einsteiger_in (7 Punkte)
ich würde in einem Excel gerne einen Button erstellen, bei Klick soll der Inhalt der gesamten Zeilen in denen auf Spalte L: "erledigt" aufscheint, gelöscht werden! (ganzes Blatt pro Zeile erledigt, hoffe das ist verständlich )

Wäre super wenn mir hier jemand von euch helfen könnte! ;-)

DANKE im voraus LG Stefan

2 Antworten

0 Punkte
Beantwortet von m-o Profi (22.7k Punkte)
Bearbeitet von m-o

Hallo Stefan,

füge den folgenden Code in ein allgemeines Modul deiner Arbeitsmappe ein:

Sub erledigt_loeschen()
Dim lngLetzte As Long
Dim lngZeile As Long

'letzte beschrieben Zeile in Spalte L ermitteln
lngLetzte = ActiveSheet.Cells(Rows.Count, 12).End(xlUp).Row

'Bereich durchlaufen und Zeilen mit erledigt in Spalte L löschen
For lngZeile = lngLetzte To 1 Step -1
   If Cells(lngZeile, 12).Value = "erledigt" Then Rows(lngZeile).Delete
Next lngZeile

End Sub

Damit werden alle Zeilen, in denen in Spalte L "erledigt" steht, gelöscht.

Gruß

M.O.

0 Punkte
Beantwortet von slorenz Einsteiger_in (7 Punkte)
DANKE muss es morgen testen bis jetzt unterwegs!!

DANKE nochmal für die rasche Info

LG Stefan
...