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!
2 Antworten
Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer
Computer
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
Nutzer, der sehr aktiv auf gutefrage ist
Makro aufzeichnen. Filter auf Zahlen kleiner Null, Spalte markieren, löschen.
Woher ich das weiß:Berufserfahrung – Arbeite im Controlling & (Personal)Management