online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon little-key vom 19.05.2022, 17:03 Options

Tabelle durchsuchen und Zellen leeren

Hallo,

folgendes Problem:

Eine Tabelle mit ca. 700 Zeilen soll in Spalte D nach einem Eintrag -98 durchsucht werden.
Hat er diesen Eintrag gefunden in der Spalte D, dann soll in der gleichen Zeile Spalte K, L, M, N geleert werden.

Dann weiter zum nächsten Eintrag.

Z.B.
In Zelle D33 steht -98, soll in K33, L33, M33, N33 die zelle geleert werden.

Kann in ca. 50 Zeilen vorkommen.

Danke schonmal Mario


Antwort schreiben

Antwort 1 von rainberg vom 19.05.2022, 17:51 Options

Hallo Mario,

das geht damit

Option Explicit

Sub loeschen()
    Dim rngC As Range, rngBer As Range
    Set rngBer = Range("D1:D100")
    For Each rngC In rngBer
        If rngC.Value = -98 Then
            Range("K" & rngC.Row & ":N" & rngC.Row).ClearContents
        End If
    Next
End Sub


Gruss
Rainer

Antwort 2 von little-key vom 19.05.2022, 19:35 Options

Hallo Rainer,

ganz, ganz grosse Klasse.

Hat bestens funktioniert.

Besten Dank
Mario

Ähnliche Themen

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Mon Jan 26 11:26:25 2026