Zeilen löschen, die gleichen Zellbezug haben
17.03.2014 19:21:34
Florian
ich bin seit längerem auf der Suche nach einer Lösung für mein Problem. Ich habe im Netz einen Code gefunden, der mir weiterhilft, jedoch mein Problem nicht komplett beseitigt. Mein Ziel ist es beim Löschen des Zellinhalts "Abwesend" in einem beliebigen Tabellenblatt eine Prodzedur auszulösen, die in einem bestimmten Tabellenblatt (Eingabe_CB) eine Spalte auf gleiche Zellnamen durchsucht. Daraufhin sollen alle Zeilen gelöscht mit eben diesen Zellnamen lediglich der letzte Eintrag soll bestehen bleiben.
Der dargestellte Code löscht alle Zeilen mit der Übereinstimmung vom Zellnamen in einer Spalte, Problem hierbei ist aber, dass die erste Zeile bestehen bleibt und nicht die letzte.
Ich füge meine aktuellen Daten immer unten an, deshalb muss bei mir immer der letzte Eintrag bestehen bleiben.
Leider schaffe ich es nicht diesen Code passend zu verändern! Ich wäre euch überaus dankbar, wenn mir jemand helfen könnte.
Sub Gleiche_Loeschen_SpalteL()
Dim i As Long
Dim lngLastR As Long
lngLastR = Cells(Rows.Count, "L").End(xlUp).Row + 1
'Zellinhalte in Spalte L durch "" = Leerzelle ersetzen
Do
i = i + 1
Range(Cells(i + 1, "L"), Cells(lngLastR, "L")).Replace _
what:=Cells(i, "L").Value, replacement:="", lookat:=xlWhole
Loop While WorksheetFunction.CountIf(Range(Cells(i + 1, "L"), Cells(lngLastR, "L")), "")