Loescht eine Zeile zuviel

Hallo Zusammen,
mit toller Unterstuetzung aus dem Forum habe ich mir folgende Zeilen Zusammen geschustert. Leider verhaelt der Code sich nicht ganz so wie ich mir das vortselle.
Selection.AutoFilter Field:=1, Criteria1:="=*OUT*", Operator:=xlAnd
With Worksheets("Sheet1")
If Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Selection.AutoFilter Field:=1
Else
Selection.AutoFilter Field:=1
End If
End With
Es wird ein Filter auf Spalte A gesetzt
Dann wird geprueft ob der Filter auch was anzeigt
Wenn ja, dann soll er diese Zeilen loeschen.
Die Pruefung hab ich eingebaut weil er mir sonst die Ueberschriften loescht.
Jetzt habe ich Festgestellt, dass wenn nur eine Zeile angezeigt wird nicht nur diese sondern auch wieder die Ueberschriftenzeile loescht und ich verstehe nicht ganz warum.
Koennte mir jemand diese Zeile erklaeren?
Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)).SpecialCells
Beste Gruesse
Abu

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub a2() With Worksheets("sheet1") On Error Resume Next Intersect(.Columns(1).SpecialCells(xlCellTypeVisible), .AutoFilter.Range.Offset(1).Resize(. _ AutoFilter.Range.Rows.Count - 1)).EntireRow.Delete .AutoFilter.ShowAllData On Error GoTo 0 End With End Sub

Hallo Abu,
das Problem dürfte nur auftreten, wenn als Ergebnis des Filterungsvorgangs nur die Zeile 2 übrigbleibt. Mit folgender Fallunterscheidung sollte der Code funktionieren:
With Worksheets("Sheet1")
If Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
If Cells(Rows.Count, 1).End(xlUp).Row > 2 Then
Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Selection.AutoFilter Field:=1
Else
Rows(2).EntireRow.Delete
Selection.AutoFilter Field:=1
End If
Else
Selection.AutoFilter Field:=1
End If
End With~f~
Noch ein Hinweis: Du verwendest zwar With-End With, in dem Block zwischen den beiden Zeilen referenzierst Du aber falsch. In der ersten Zeile
~f~If Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
beziehen sich Cells und Rows auf das aktive Blatt, nicht auf Sheet1. Da Du zumindest in der Testdatei nur ein Blatt "Sheet1" hast, macht das keinen Unterschied. Bei nur einem Blatt in der "Echtdatei" ist das With aber ohnehin überflüssig.
Gruß
Martin
P.S. Es wäre besser gewesen, die Nachfrage im ursprünglichen Thread zu stellen, damit alle die "Vorgeschichte" kennen.

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread