VBA - Zeilen Löschen

Computer: Software & Programmierung Visual Basic
#1

Hallöchen,
ich bins nochmal mit einem anderem problem.

undzwar ich will 4 Zeilen Runter löschen, aber NUR wenn in Zeile D etwas steht…

also imprinzip, Wenn D4 >=0 dann unteren 4 Zeilen löschen sonst nichts.

Gruß
Daniel

#2

Hallo Tobisan!

if cells(4,4).value >= 0 then
rows(„5:8“).delete Shift:=xlUp
end if

Alternativ mit einer Variablen:
if cells(i,4).value >= 0 then
rows(i+1 & „:“ & i+4).delete Shift:=xlUp
end if

Ich hoffe, dass ist die Lösung, die du suchst.

Schönen Gruß
TEN

#3

if cells(4,4).value >= 0 then
rows(„5:8“).delete Shift:=xlUp
end if

Hallo Ten,

hast du deinen Code mal getestet wenn D4 leer ist?

Sub tt()
If Cells(4, 4).Value „“ Then Rows(„5:8“).Delete
End Sub

Gruß
Reinhard