Hallo zusammen,
ich brauche mal wieder die Hilfe des Forums.
Ich habe auf einem separaten Tabellenblatt eine Auflistung von Suchnamen. Aktuell sind 8 Stück aufgeführt.
Ich möchte nun das die Spalte B meiner Tabelle nach diesen Namen durchsucht wird. Wenn ein Treffer erfolgt soll der Inhalt dieser Zeile entfernt werden und die Zeilen darunter diese eine Zeile hochkopiert werden.
Mein aktueller Ansatz schaut wie folgt aus:
Dim Zeile As Integer, Sucher As Integer
Dim Lieferant As String
Sucher = 2
Lieferant = Worksheets("Key").Cells(Sucher, 5).Value
For Sucher = 2 To 8
For Zeile = 3 To 150
If Sheets("Auswertung").Cells(Zeile, 2) = Lieferant Then
Cells(Zeile, 2).EntireRow.Delete
Else End If
Next Zeile
Next Sucher
Dieser Code würde die Zeile löschen nur nicht mal das bekomme ich zum laufen...
Das Hochkopieren wäre jedoch komfortabler da die Tabelle begrenzte 150 Zeilen hat, welche beim löschen schnell erschöpft wären.
Vielleicht kann mir ja jemand auf die Sprünge helfen.
Grüße