Löschen von Zeilen mit Wert 0

15/05/2008 - 14:12 von Harald Schlüter | Report spam
Hallo Zusammen.

Ich habe folgenden VBA-Code zum ausblenden von Zeilen mit dem Wert 0
in Spalte A:


Sub löschen()
Dim zeile As Range

For Each zeile In Sheets ("Tabelle1").UsedRange.Rows.EntireRow
zeile.Hidden = (zeile.Cells(1, "A") = 0)
Next

End Sub


An statt auszublenden möchte ich die Zeilen mit dem Wert 0 löschen.

Kann mir jemand weiterhelfen?

Besten Dank und viele Grüße

Harald
 

Lesen sie die antworten

#1 Claus Busch
15/05/2008 - 15:39 | Warnen spam
Hallo Harald,

Am Thu, 15 May 2008 05:12:13 -0700 (PDT) schrieb Harald Schlüter:

Ich habe folgenden VBA-Code zum ausblenden von Zeilen mit dem Wert 0
in Spalte A:



[Code ausgeschnitten]

An statt auszublenden möchte ich die Zeilen mit dem Wert 0 löschen.



probiers mal so:

Sub Loeschen()

Dim i As Long
Dim LRow As Long

With Sheets("Tabelle1")
LRow = .Cells(Rows.Count, 1).End(xlUp).Row

For i = LRow To 2 Step -1
If .Cells(i, 1).Value = 0 Then
.Cells(i, 1).EntireRow.Delete
End If
Next

End With

End Sub


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

Ähnliche fragen