Zeilen löschen - wenn wert aus Liste
15.07.2019 12:02:31
Max
ich habe ein Problem mit folgendem Makro:
Public Sub bedingte_Zeilenloeschung()
'** Ermittlung der letzten Zeile in Spalte A
lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row
'** Durchlauf aller Zeilen
For t = lz To 2 Step -1 'Zählung rückwärts bis Zeile 2
'Abfragen, ob in der ersten Spalte der Buchstabe "x" steht
If Cells(t, 1).Value = "1" Then
Rows(t).Delete Shift:=xlUp
End If
Next t
End Sub
Diese Makro löscht also alle Zeilen in meiner Datei mit der Artikel Nr. 1
Allerdings möchte ich hier keine harten Werte (der Artikelnummer) sondern möchte mit dem Makro alle Artikel einer anderen Liste löschen.
Dh. ich habe eine Liste mit Artikelnummern die gelöscht werden sollen. Mit Hilfe des Makros sollen dann all diese Artikel aus der Artikelübersicht gelöscht werden
Wie kann ich das Makro so erweitern ?
Anbei die Beispieldatei mit Artikelübersicht und Löschliste
https://www.herber.de/bbs/user/130913.xlsm
Könnt ihr mir hier weiterhelfen ?
Vielen Dank !!
Viele Grüße
Max