Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
988to992
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige