Hallo allerseits.
ich habe ein kleines Problem und bin leider auch ein blutiger Anfänger : Ich die letzten 3 Zellen einer Spalte auswählen und diese durch eine If-Abfrage je nach Wert entfernen. Das Problem ist VBA wählt die letzten 3 Zellen aus, wenn ich aber eine If-Abfrage starte mit der Bedingung das alles Werte unter 0 entfernt werden sollen löscht VBA immer wieder und wieder die letzten 3 Zellen einer Spalte bis keine Zahlen mehr übrig sind.
Ich möchte aber nur die letzten 3 Zellen einer Spalte ausgewählt haben und diese unter der Bedingung löschen wenn die Zahl kleiner als 0 ist.
Hier mein Code den ich benutzt habe:
Sub FilterX()
Dim Zellen As Variant
Zellen = Cells(Rows.Count, "P").End(xlUp).Offset(1 - 3).Resize(3).Select
If Zellen < 0 Then
Cells(Rows.Count, "P").End(xlUp).Offset(1 - 3).Resize(3).Value = ""
End If
End Sub
|