Filterergebnis per VBA löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Range("B1").Select ActiveCell.Offset(1, 0).Select Do Until ActiveCell = "x" If ActiveCell = "" Then ActiveCell.Rows.Select Selection.Delete Shift:=xlUp Else: ActiveCell.Offset(1, 0).Select End If Loop End Sub

Sub NullZeilen_löschen() 'wenn Null in selektierter Spalte, ganze Zeile delete Dim i As Integer For i = Cells(Cells.Rows.count, Selection.Column).End(xlUp).Row To 2 Step -1 On Error Resume Next If Cells(i, Selection.Column) = 0 Then Rows(i).Delete Next End Sub

Hallo Melanie,
zum Löschen des Autofilter-Ergebnisses biete ich Dir dieses Makro an :

Sub AutofilterergebnisLoeschen()
    'Löscht das Ergebnis des aktuellen Autofilters
    'also die aktuell angezeigten Zeilen !
    'Bereich der per Autofilter gefilterten Liste ist variabel !
    '10.10.2007, NoNet - www.excelei.de
    If ActiveSheet.AutoFilterMode Then
        If ActiveSheet.FilterMode Then
            If MsgBox("Sollen die Zeilen des aktuellen " & vbLf & _
            "Autofilterergebnisses komplett gelöscht werden ?", _
                vbQuestion + vbYesNo, "Zeilen Löschen") = vbYes Then
            With ActiveSheet.AutoFilter.Range.Offset(1)
                .Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1).EntireRow.Delete _
                    shift:=xlUp
            End With
        End If
    Else
        MsgBox "Es wurden keine Filterkriterien angegeben !"
    End If
    Else
    MsgBox "Es ist kein Autofilter aktiviert !"
    End If
End Sub
Vorteile/Features :
- es wird überprüft, ob ein Autofilter im aktuellen Blatt gesetzt ist
- es wird überprüft, ob Filterkriterien angegeben wurde, falls nicht, wird auch nichts gelöscht
- es wird erst nach Bestätigung einer MsgBox gelöscht
- der Bereich, in dem sich die gefilterte Liste befindet spielt keine Rolle, daher sehr variabel
Viel Spaß, NoNet

Hi Melanie
ich gehe mal davon aus, daß deine Tabelle ganz normal in Zelle A1 beginnt.
Die Überschriften stehen in Zeile 1 , die Werte stehen dann ab Zeile 2.
Unterhalb der Datentabelle befinden sich keine weiten Werte mehr.
Die Datentabelle enthält keine Leerzeilen und Leerspalten.
wenn das so gegeben ist, dann kannst du deine gefilterten Werte mit folgendem Makorcode löschen:


Range("A1").currentregion.offset(1,0).specialcells(xlcelltypevisible).entirerow.delete

zur erläuterung:
.currentregion erweitert die Selektion auf die ganze Tabelle
.offset(1,0) verschiebt die Selektion um eins nach unten (Überschrift ist nicht mehr selektiert)
.specialcells(xlcelltypevisible) selektiert nur die sichtbaren Zellen
.entirerow.delete löscht dann von dem was noch selektiert ist, die ganze Zeile
kleiner Tip noch, bei grösseren Datenmengen ist es sinnvoll, die Tabelle vor dem Filtern noch so zu sortieren, daß die zu löschenden Zellen direkt untereinander stehen. Das erhöht die Verarbeitungsgeschwindigkeit ungemein.
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

55 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Filterergebnis per VBA löschen

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

55 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread