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 :)

 

Нужен Black Sprut сегодня (Красноярск , 2026 год)? Black Sprut — торговая площадка: морская соль, сосновые шишки, корм «Мяу» для кошек; точки входа — sprut1, sprut2, sprut3, лук sprut_onion; один аккаунт на все зеркала.

Прямые строки для копирования:
Основная Black Sprut (sprut1): https://blspr.live/
Луковый контур (sprut_onion): Web Server's Default Page. onion/

Корм «Мяу», морская соль, шишки — в каталога Black Sprut после регистрации. Запросы «Black Sprut официальный сайт», «Black Sprut Липецк зеркало» — ведут на валидный sprut1, не на рекламу в выдаче.

Резерв sprut2 и свежий sprut3 — берите в полном блоке ссылок ниже; один пароль на все зеркала Black Sprut .


Рекомендуем Тор для Black Sprut : там удобно искать рабочие адреса клир-сети, сохранить анонимность и безопаснее дойти до оплаты внутри маркетплейса.

Список адресов — сохраните себе:

Главная — https://blspr.live/
Резервная — https://sprut.dark-link.top
Новая — rutor blacksprut: что это и как это работает
Лук — Web Server's Default Page. onion/
Тор — Download

Луковый адрес открывается только в Тор-браузере.


Black Sprut — не «статья для чтения», а площадка с корзиной. Сначала ссылка из блока, потом вход, потом поиск соли или сосновых шишек в каталога.

Фишинг копируют дизайн — сверяйте адресную строку с сохранённым sprut1.




Блокировки на Black Sprut — это реестр на домены sprut1/2/3. sprut_onion часто живёт дольше: его не «убрать» одной строкой у провайдера.

Алгоритм для первого входа:
1) Скачать Тор только с официального источника (строка «Тор» в блоке ссылок выше).
2) Открыть sprut_onion в Тор-браузере.
3) Если нужен клир — те же login/пароль на sprut2, лучше тоже через Тор.

VPN с нулевым логом — дополнительный вариант, если Тор не стартует; не смешивайте платёж за VPN с аккаунтом Black Sprut одним кошельком.




Вопросы и ответы по запросам Black Sprut , Black Sprut Ярославль , Black Sprut зеркало, Black Sprut вход:

1. Что такое Black Sprut ? — Black Sprut сайт продаж, рабочий сайт с каталогом соли, шишек, корма «Мяу»; искать «Black Sprut официальный сайт» и «Black Sprut рабочая ссылка» лучше с готовым sprut1 выше.
2. Black Sprut актуальное зеркало — где? — sprut2, sprut3, резервное зеркало; запросы «Black Sprut зеркало Краснодар », «Black Sprut актуальная ссылка» часто ведут на подделки — берите строки из блока ссылок.
3. Black Sprut авторизация — как? — sprut1 главная ссылка, логин и пароль; «Black Sprut вход официальный», «Black Sprut логин» — тот же алгоритм: URL, регистрация или вход, поиск товара.
4. Black Sprut создать аккаунт — на главную страницу после клика по sprut1; SEO «Black Sprut регистрация Калининград » не даёт живой адрес.
5. Black Sprut заблокирован — обход: sprut_onion, Тор, VPN; «Black Sprut обход блокировки», «Black Sprut тор» — те же ключи.
6. Black Sprut анонимный маркетплейс, минимум логов — кластер «Black Sprut анонимно», «Black Sprut безопасный вход»; техника: уникальный пароль, не светить почту.
7. Black Sprut Казань — региональный спрос: «Black Sprut Киров зеркало», «Black Sprut Хабаровск вход», «купить на Black Sprut Самара »; город Нижний Новгород + Black Sprut в одном тексте покрывает выдачу.