Rob hat eine Arbeitsmappe, die mehrere Arbeitsblätter enthält. Er möchte wissen, wie Filter am einfachsten entfernt und Zeilen und Spalten in allen Arbeitsblättern gleichzeitig ausgeblendet werden können.

Man könnte meinen, dass dies manuell möglich wäre, indem ein „Auswahlsatz“ aller Arbeitsblätter erstellt wird, die Sie beeinflussen möchten, und dann Filter entfernt werden. Während Sie diesen Ansatz zum Einblenden von Zeilen verwenden können, können Sie keine Auswirkungen auf Filter haben. Sobald Sie mehr als ein Arbeitsblatt ausgewählt haben, kann das Filterwerkzeug (auf der Registerkarte Daten des Menübands) nicht mehr ausgewählt werden.

Dies bedeutet, dass Sie ein Makro verwenden müssen, um die Arbeit zu erledigen – es sei denn, Sie möchten Filter einzeln für ein Arbeitsblatt entfernen. Hier ist ein kurzes kleines Makro, mit dem alle Filter entfernt werden, die auf Arbeitsblätter in der Arbeitsmappe angewendet werden:

Sub RemoveFilters()

Dim wks As Worksheet

Application.ScreenUpdating = False     For Each wks In ThisWorkbook.Worksheets         If wks.AutoFilterMode Then wks.AutoFilterMode = False     Next wks     Application.ScreenUpdating = True End Sub

Wenn die ausgeblendeten Zeilen und Spalten ein Ergebnis der von Ihnen angewendeten Filter sind, sollten diese Zeilen und Spalten nach dem Entfernen aller Filter sichtbar sein.

Wenn andere Zeilen und Spalten manuell ausgeblendet und angezeigt werden sollen, können Sie die folgende Version des Makros verwenden:

Sub RemoveFiltersUnhide()

Dim wks As Worksheet

Application.ScreenUpdating = False     For Each wks In ThisWorkbook.Worksheets         With wks             If .AutoFilterMode Then .AutoFilterMode = False             .Rows.Hidden = False             .Columns.Hidden = False         End With     Next wks     Application.ScreenUpdating = True End Sub

Diese Version entfernt Filter und blendet alle zuvor ausgeblendeten Zeilen und Spalten aus.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (3036) gilt für Microsoft Excel 2007, 2010, 2013 und 2016.