Office: VBA Komplette Zeilen löschen mit Autofilter mit Makro

Hallo,

ich möchte einen Autofilter in der ersten Zeile anweden, dann in der 12 Spalte nach "B" filtern und anschließend die gefundenen Zeilen entfernen. Bei meinem Versuch löscht mir der Code leider auch die Zeile mit in der ich filtere- das soll so nicht sein ;)

Hier mein Versuch:

Code:

With Sheets("Ka")
        Rows("1:1").AutoFilter Field:=12, Criteria1:="B"
        .UsedRange.SpecialCells(xlCellTypeVisible).delete
End With

Ich benutze Excel 2010
Danke!

 

Hi Marius,

müsste nicht vor Rows noch ein Punkt (.), damit sich der Autofilter auf das Tabellenblatt "Ka" bezieht? Ich nehme mal an, dass der Autofilter in diesem Blatt gar nicht gesetzt wird, da du dich durch den fehlenden Punkt mit deinem Code auf das aktive Tabellenblatt beziehst.

Bis später,
Karin

 

Hey Beverly bzw Karin!

Hmmm, bei mir funktioniert der Autofilter mit Punkt (.) und auch ohne den Punkt. Vielleicht weil nur das eine Tabellenblatt vorhanden ist? Was soll dieser Punkt eigentlich? Das hat irgendwas mit der with- Anweisung auf sich?


Danke

 

Edit sagt:

Mir ist gerade was eingefallen, und habs getestet:
"Offset" ist nicht unbedingt schlau in dem Zusammenhang.
Wenn die "UsedRange" bis runter zur allerletzten Zeile geht (z.bsp. weil in einer kompletten Spalte die Hintergrundfarbe geändert wurde), dann kann der Bereich natürlich nicht um eine Zeile nach unten verschoben werden, und das Makro läuft mit Volldampf vor die Wand.
Etwas länger, aber dafür ungefährlich wäre z.Bsp. diese Variante:

Code:

.Range(.Rows(2), .Rows(.UsedRange.Rows(.UsedRange.Rows.Count).Row)).SpecialCells(xlCellTypeVisible).EntireRow.Delete

Hallo Marius,

um zu vermeiden, dass die erste Zeile mitgelöscht wird, könnte man den Bereich mit "Offset" um eine Zeile nach unten schieben:

Code:

With Sheets("Ka")
    [COLOR=#ff0000].[/COLOR]Rows("1:1").AutoFilter Field:=12, Criteria1:="B"
    .UsedRange[COLOR=#ff0000].Offset(1, 0)[/COLOR].SpecialCells(xlCellTypeVisible)[COLOR=#ff0000].EntireRow[/COLOR].Delete
    [COLOR=#ff0000].ShowAllData[/COLOR]
End With

Das "EntireRow" bewirkt, dass direkt die ganze Zeile gelöscht wird, damit die Nachfrage von Excel nicht immer erscheint, und mit "ShowAllData" werden wieder alle Zeilen angezeigt, der Autofilter bleibt aber bestehen.
Um ihn wieder ganz zu löschen müsste ".AutoFilterMode = False" eingebaut werden.

Der "." vor dem "Rows" ist Teil der Referenzierung.
Innerhalb "With" und "End With" bezieht sich alles wo ein "." vorweg gestellt wird, auf das benannte Objekt, in diesem Fall ein Blatt (vereinfacht gesagt).

Übrigens, falls Dein Code sich im CodeModul des Blattes und nicht in einem allgemeinen Modul befindet kannst Du, anstatt "With Sheets("Ka")" auch "With Me" benutzen.
Und generell würde ich empfehlen anstatt "Sheets" lieber "Worksheets" zu benutzen, denn sollte das vom Code aufgerufene Blatt mal kein Tabellenblatt sein (es gibt noch andere) dann würden die meisten Makros hängen bleiben.



Ich hoffe geholfen zu haben.

 

So gehts, danke! Und besten Dank für die ausführliche Erklärung!

 

Ich bin es nochmal,
wenn der Autofilter nichts findet, weil kein "B" in der Spalte vorhanden ist, kommt: "Laufzeitfehler 1004. Keine Zellen gefunden"

Wie kann man die Fehlermeldung am besten umgehen? Es kann nämlich durchaus vorkommen das kein "B" in der Spalte vorhanden ist. Mit On ERROR GOTO? Oder so?

Danke

 

Hi Marius,

füge vor dem Setzen des Autofilters noch eine Prüfung ein, ob Spalte 12 "B" enthält:

Code:

   If Application.CountIf(Columns(12), "B") > 0 Then

       '......

   End If

Bis später,
Karin

 

Danke!!