Excel bestimmte zeilen löschen

Computer: Software & Programmierung Office Software
1

Hallo Experten (insbes. Reinhard und Ypsilon)
im Forum vom 11./ 12.12. wurde die Frage nach Zeilenlöschen mit bestimmter Hintergrundfarbe bereits behandelt. Wie geht das mit der Fragestellug. „Lösche alle Zeilen, bei denen in Spalte A Werte >1000 enthalten sind“? In der Hoffnung auf eine spontane Lösung grüßt Euch und wünscht schon mal schöne Weihnachten

Matthias

2

hi Matthias,

Sub tt()
Dim LoZei As Long
For LoZei = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If IsNumeric(Cells(LoZei, 1).Value) And Cells(LoZei, 1).Value > 1000 Then Rows(LoZei).Delete
Next
End Sub

cu Micha