Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen löschen

Forumthread: Zeilen löschen

Zeilen löschen
06.07.2008 18:45:00
Domtsgi
Hallo Leute,
Eigentlich sicherlich kein grösseres Problem, aber ich komme irgendwie nicht weiter.
Ich habe in der Spalte "I" verschiedene Zahlen. Nun möchte ich mit VBA ermitteln, in welcher Zeile die erste 0 (null) steht. Ab dieser Zeile möchte ich alle Zeilen bis zur Zeile 500 löschen.
Suche die erste O. Gefundene Zeile = x
Zeile x bis 500 löschen.
mit bestem Dank für eine Lösung
Domtsgi

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen
06.07.2008 19:02:03
Chris
Servus,
evtl. so:

Sub L()
Dim lngRow As Long, rSuche As Range, rFinde As Range
Set rFinde = Range("I1:I500")
Set rSuche = rFinde.Find(what:=0, LookAt:=xlWhole, LookIn:=xlValues, SearchDirection:=xlNext)
If Not rSuche Is Nothing Then
lngRow = rSuche.Row
Rows(lngRow & ":500").Delete
End If
End Sub


Gruß
chris

Anzeige
AW: Zeilen löschen
06.07.2008 19:50:00
Domtsgi
Tschau Chris,
EXAKT diese Lösung habe ich gesucht. Funktioniert Super.
herzlichen Dank
Gruss Domtsgi
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige