Hallo liebe Excelgemeinde,
hat zufällig jemand ein Makro, welches mir dabei hilft, in einem Exceltabellenblatt in der ersten Spalte nach bestimmten Bezeichnungen zu suchen und dann die dazugehörige Zeile zu löschen? Es handelt sich hierbei um knapp 90 Bezeichnungen…
Leider fehlt mir aktuell die nötige Zeit mich in den Code einzuarbeiten, deshalb wäre ich sehr sehr dankbar wenn mir jemand dabei helfen könnte.
Moin,
Makros sind ja für Vieles gut, aber in solchen Fällen würde ich nach der 1. Spalte sortieren und von Hand löschen. Das ist übersichtlicher und geht schneller 
freundliche Grüße
Thomas
hat zufällig jemand ein Makro, welches mir dabei hilft, in
einem Exceltabellenblatt in der ersten Spalte nach bestimmten
Bezeichnungen zu suchen und dann die dazugehörige Zeile zu
löschen? Es handelt sich hierbei um knapp 90 Bezeichnungen…
Hallo Tmimler,
„Weg“ ist der von dir vergebene Name für die Liste mit den 90 Bezeichnungen.
Suche dir eine freie Hilfsspalte rechts von den vorhanden Daten, im Beispiel wurde Spalte M genommen, das mußte du ggfs. an deine Hilfsspalte umändern im Code, auch die „13“ anpassen (13 = 13 te Spalte von links).
Option Explicit
'
Sub Loesch()
Dim Zei As Long
Zei = Cells(Rows.Count, 1).End(xlUp).Row
Range("M1:M" & Zei).FormulaLocal = "=Wenn(Zählenwenn(Weg;A1);1;"""")"
Range("A1:M" & Zei).Sort Key1:=Range("M1"), Order1:=xlAscending, Header:=xlNo, \_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Zei = Application.Sum(Range("M1:M" & Zei))
If Zei \>= 1 Then Range("A1:M" & Zei).Delete
Columns(13).ClearContents
End Sub
Gruß
Reinhard