Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
720to724
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
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige