bitte um Makro hilfe...
wie kann ich in Spalte A die Zelle in dem der Wert 1650 steht alle nachfolgenden Zeilen bis Ende löschen?
Vielen Dank für Eure Hilfe
Gruß G.
Option Explicit
Sub gerhard()
Dim RaFound As Range
Dim LoLetzte As Long
Set RaFound = Columns("A:A").Find("1650", , , xlWhole, xlByRows, xlNext)
If Not RaFound Is Nothing Then
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
Rows(RaFound.Row & ":" & LoLetzte).Delete
End If
End Sub