Office: Zeilen markieren ud löschen über Listbox

Hallo Freunde,

ich habe schon wieder eine Frage. Ich habe diesen Code:

Wert = Sheets("Siebung_1").Rows(klick + 1).Columns("A")
If Wert = "" Then Exit Sub
ActiveSheet.Range("A1:A500").Select
For Each Zelle In Selection
If Zelle = Wert Then
'Zelle auswählen
Zelle.Select
'aktive Zeile löschen
ActiveCell.EntireRow.Delete


Ich habe eine Userform mit Listbox. In dieser Listbox wähle ich eine Zeile aus und per Klick soll dann damit gearbeitet werden.
Dieser Code löscht mir die Zeile die in der Listbox markiert ist, in dieser in der Spalte A ein Wert steht. Wie muss das aussehen, das er alle Zeilen löscht, in denen der Wert der markierten Zeile steht?

lG Rainer

:)

 

Hi Rainer,

versuche es mal so (ungetestet):

Code:

 

Vielen vielen Dank,

was du mir schon geholfen hast, ist ein Wahnsinn.

lG
Rainer