Marko löscht nicht alle Zeilen, warum ???

Question

Hi,

ich setze unten stehendes Makro in 2 Auswertungen ein, bei der einen funktioniert es tadellos, bei der anderen nicht. Der Code bei beiden Auswertungen ist vollkommen identisch, nur unten stehender Ausschnitt nicht (in der anderen Tabelle werden die Zellen gelöscht wenn G leer ist).

Es sollen alle Zeilen ab A5 gelöscht werden, wenn H leer ist!
Es werden mir aber 5 Zellen am Ende angezeigt, bei denen H leer ist !! ??

Dim lngLetzte As Long
Dim lngZeile As Long
lngLetzte = IIf(IsEmpty(Range("H65536")), Range("H65536").End(xlUp).Row + 1, 65536)
For lngZeile = lngLetzte To 5 Step -1
If Cells(lngZeile, 8) = "" Then
Cells(lngZeile, 8).EntireRow.Delete
End If
Next

Ich sehe den Fehler einfach nicht ;-(

Gruss - Petra

Answer 1

Hallo Petra,

bei mir funktioniert das Makro einwandfrei.

Kann es sein, dass sich in den vermeintlich leeren Zellen evtl.
Leerzeichen befinden?

Gruß
Rainer

Answer 2

Nachtrag:

Auch eine Formel mit dem Ergebnis "" kann den Fehler hervorrufen.

Gruß
Rainer

Answer 3

Hi Rainer,

nein - leider nicht, die Werte dieser Zellen werden in der Grundtabelle per Hand eingetragen, und sind auch absolut leer (zumindest sehe ich nichts).

Ich habe mal nur den Codeteil getestet, dann wurde mir per Klick nur 1 Zeile gelöscht ... ist das logisch ??

In dem kompletten Makro werden die Zeilen auch sortiert (nach Spalte E), dieses Sortieren fand vor dem Löschen statt.
Ich hab dann einfach mal die Reihenfolge geändert (nun werden erst die Zeilen gelöscht und dann sortiert).
Und auf den "ersten Blick" scheint es zu funktionieren.
Mich würde ja schon interessieren WARUM das so ist !??


Gruss - Petra

Answer 4

Hallo Petra,

Und auf den "ersten Blick" scheint es zu funktionieren.
Mich würde ja schon interessieren WARUM das so ist !??

...das kann ich (wenn überhaupt) leider nicht beurteilen, da ich weder
Code noch Tabelle kenne.

Meine Aussage bezog sich nur auf den von Dir geposteten Code.

Gruß
Rainer

Answer 5

hi all ^^

eine schleife ist hier unnoetig :-))

gruss nighty

eine alternative waere unter anderen

Sub FilterLoeschen()
Worksheets(1).Columns("B").AutoFilter Field:=1, Criteria1:="="
Worksheets(1).Rows("2:" & Worksheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1).Delete Shift:=xlUp
Worksheets(1).Columns("B").AutoFilter
End Sub

Answer 6

hi all ^^

hier noch eine moegliche variante :-)

gruss nighty

Sub Loeschen()
Worksheets(1).Columns("B").EntireRow.SpecialCells(xlBlanks).EntireRow.Delete
End Sub

Answer 7

@Rainer: ja logisch - hab ich nicht bedacht ;-(

@Nighty: mit der Variante aus Antw. 5 funktioniert es, vielen Dank


Vielen Dank für Eure Hilfe ..

Gruss - Petra