Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Autofilter

Autofilter
19.01.2018 15:31:58
Tom
Hallo,
alle Autofilter-Ergebnisse einer Arbeitsmappe sollen über einen Code gelöscht werden. Wie lässt sich das umsetzen? Ich habe folgendes Makro, dass sich aber nur auf das aktive Tabellenblatt bezieht.
Sub AutofilterergebnisLoeschenOhneAbfrage()
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
Gruß Tom

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autofilter
19.01.2018 16:12:54
Werner
Hallo Tom,
teste mal:
Sub AutofilterergebnisLoeschenOhneAbfrage()
Dim ws As Worksheet, boFilter As Boolean, boKriterium As Boolean
For Each ws In ThisWorkbook.Worksheets
If ws.AutoFilterMode Then
boFilter = True
If ws.FilterMode Then
boKriterium = True
'If MsgBox("Sollen die Zeilen des aktuellen " & vbLf & _
"Autofilterergebnisses komplett gelöscht werden ?", _
vbQuestion + vbYesNo, "Zeilen Löschen") = vbYes Then
With ws.AutoFilter.Range.Offset(1)
.Resize(ws.AutoFilter.Range.Rows.Count - 1).EntireRow.Delete _
Shift:=xlUp
End With
'End If
End If
End If
Next ws
If boFilter And Not boKriterium Then
MsgBox "Es ist kein Filterkriterium gewählt !"
End If
If Not boFilter Then MsgBox "Es ist kein Autofilter aktiviert !"
End Sub
Gruß Werner
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige