Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige