Tabelle durchsuchen und Zellen leeren

Question

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

Answer 1

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

Answer 2

Hallo Rainer,

ganz, ganz grosse Klasse.

Hat bestens funktioniert.

Besten Dank
Mario