Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen bis ende löschen

Zeilen bis ende löschen
gerhard
Hallo zusammen
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.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeilen bis ende löschen
15.11.2010 13:18:48
Hajo_Zi
Hallo Gerhard,
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

AW: Zeilen bis ende löschen
15.11.2010 14:20:09
gerhard
Vielen Dank
funktioniert
Gruß G.
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige