VBA: Wie lösche ich alle negativen Werte in einer Spalte?

Hallo ihr lieben,

ich steh total auf dem Schlauch und bin am verzweifeln. Ich benötige ein VBA-Makro, welches aus Spalte D alle negativen Werte aus den Zellen löscht. Der Code, welchen ich mir zusammen gebastelt habe, funktioniert jedoch vorne und hinten nicht.

Habt ihr hier eine Idee?

Viele Grüße & Danke!

Answer 1

[Elumania]

Sub KillNegZahlen()
letzteZeile = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
For i = 1 To letzteZeile
    If Cells(i, 4) < 0 Then
        Cells(i, 4) = ""
    End If
Next
End Sub

Answer 2

[floppydisk]

Makro aufzeichnen. Filter auf Zahlen kleiner Null, Spalte markieren, löschen.

Woher ich das weiß: Berufserfahrung – Arbeite im Controlling & (Personal)Management