Mehrere Zeilen markieren

12/11/2007 - 15:43 von Peter Wenzel | Report spam
Hallo,

ich möchte per VBA in abhàngigkeit bestimmter Bedingungen Zeilen
markieren, um diese dann zu löschen.
Konkret: ich habe eine Schleife gebildet die abfragt ob eine Zelle (z.B.
in Spalte E) einen Wert enthàlt.
Wenn nicht soll diese Zeile markiert werden. Dann geht's weiter zur
nàchsten Zeile...

Eine Zeile bekomme ich markiert (ActiveCell.Offset(z,
0).EntireRow.Select). Beim nàchsten Durchlauf aber wird dann nur die
nàchste Zeile markiert. Die erste, und im Weiteren andere, sollen aber
auch markiert werden, damit ich diese dann in einem Rutsch löschen kann.

Kann mir jemand dabei weiterhelfen?

Vielen Dank
Peter



Antworten bitte nur in diese NG!
Die Mailadresse existiert, die Nachrichten werden jedoch automatisch gelöscht.
 

Lesen sie die antworten

#1 Claus Busch
12/11/2007 - 16:13 | Warnen spam
Hallo Peter,

Am Mon, 12 Nov 2007 15:43:09 +0100 schrieb Peter Wenzel:

ich möchte per VBA in abhàngigkeit bestimmter Bedingungen Zeilen
markieren, um diese dann zu löschen.
Konkret: ich habe eine Schleife gebildet die abfragt ob eine Zelle (z.B.
in Spalte E) einen Wert enthàlt.
Wenn nicht soll diese Zeile markiert werden. Dann geht's weiter zur
nàchsten Zeile...

Eine Zeile bekomme ich markiert (ActiveCell.Offset(z,
0).EntireRow.Select). Beim nàchsten Durchlauf aber wird dann nur die
nàchste Zeile markiert. Die erste, und im Weiteren andere, sollen aber
auch markiert werden, damit ich diese dann in einem Rutsch löschen kann.



lösche die Zeilen doch gleich innerhalb des Schleifendurchlaufs. hier der
Code für leere Zellen in Spalte E (sonst Bezüge anpassen):

Sub Loeschen()

Dim i As Long
Dim LRow As Long

LRow = Cells(Rows.Count, 5).End(xlUp).Row
For i = LRow To 2 Step -1
If Cells(i, 5).Value = "" Then
Rows(i).Delete
End If
Next

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen