Office: (Office 365) VBA Loop : Werte suchen und löschen

Hallo zusammen,

ich habe folgende Ausgangslage:
Im Tabellenblatt Auswahl sollen Artikel eingegeben werden und via Formel wird der zugehörige Lagerplatz ausgegeben (funktioniert soweit), sodass die Artikel physisch gefunden und entnommen werden können.
Nun soll mit Klick auf einen Button bestätigt werden, dass diese Artikel dem jeweiligen Lagerplatz entnommen wurden, sprich: alle Artikel, welche im Tabellenblatt Auswahl aufgelistet sind, sollen im Tabellenblatt Bestand gelöscht werden. Darüber hinaus wird auch die jeweils zugehörige Spezifikation und das Erfassungsdatum des Artikels gelöscht.

Das Problem an der Sache ist, dass mein Makro lediglich den ersten Artikel wie beschrieben löscht, statt die gesamte Liste der zu löschenden Artikel abarbeitet. Kann mir jemand bitte den Fehler in meinem Makro aufzeigen?

Besten Dank im voraus!

 

Gut der Code läuft nicht durch, da C.Address nicht mehr voirhanden, das war nicht die Frage also darauf keine Antwort.
Bei Dir lief er ja, also richtige Datei hochladen. Jede neue Datei sollte auch einen neuen Namenb habe.
Dein Problem konnte ich nicht nachvollziehen, da Code nicht läuft.

 

Hallo,

du musst die Ende-Bedingungen deiner DO-LOOP-Schleife ändern. Das Programm meldet ansonsten einen Fehler, wenn nämlich c NOTHING ist und in der AND-Formel der 2.Teil ausgewertet werden soll: c.Address kann nicht existieren, falls c NOTHING ist.

Code:

Sub Ware_auslagern()
    Dim c As Range
    Dim rngBereich As Range
    Dim strErste As String
    Dim varSuche As Variant
    Dim i As Long
    With Sheets("Bestand")
        Set rngBereich = .Range("C3:C1800")
        For i = 3 To 30
            varSuche = Cells(i, 2).Value
            Set c = rngBereich.Find(varSuche, LookIn:=xlValues, lookat:=xlWhole)
            If Not c Is Nothing Then
                strErste = c.Address
                Do
                    .Cells(c.Row, 3).Resize(1, 3).ClearContents
                    Set c = rngBereich.FindNext(c)
                    If c Is Nothing Then Exit Do
                Loop While c.Address <> strErste
            End If
        Next
    End With
End Sub

 

Klingt natürlich logisch und klappt bestens, danke!

Wie sooft in diesem Forum gelesen, gibt es wirklich tolle, lösungsorientierte Mitglieder aber eben auch... naja Hajos eben. Happy Friday allen :)