Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Löschen von Zeilen

Forumthread: Löschen von Zeilen

Löschen von Zeilen
17.01.2006 15:08:28
Zeilen
Hallo Alle Zusammen!
Bin auf der Suche nach der Lösung zu folgendem Problem:
Ich möchte ein makro, welches mir automatisch die letzte Zeile des aktiven Sheets auswählt, in der immer die Angabe "...Mitarbeiter" auftaucht. Die Zahl, die vor dem Wort Mitarbeiter steht, variiert allerdings jedesmal. Diese Zeile soll dann komplett gelöscht werden. ich glaube, ich habe im Archiv schon mal die Lösung dazu gesehen, finde sie aber leider nicht mehr.
Vielen Dank im voraus, Suzette
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Löschen von Zeilen
17.01.2006 16:32:17
Zeilen
Hallo Suzette,
so könnte es gehen, wenn: Die Spalte, in der der Text ...Mitarbeiter vorkommt die Spalte A ist.

Sub Letzte_loeschen()
Dim lZeile   As Long
Dim lLetzte  As Long
lLetzte = Cells(Rows.Count, 1).End(xlUp).Row
For lZeile = lLetzte To 1 Step -1
If InStr(Range("A" & lZeile).Value, "Mitarbeiter") Then
Rows(lZeile & ":" & lZeile).Delete Shift:=xlUp
Exit For
End If
Next lZeile
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige