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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen