Excel VBA Filter auf alle Arbeitsblätter

Hallo,

ich habe derzeit in Excel 17 Arbeitsblätter, die alle die gleichen Spaltenamen besitzen.

Spalte1 Spalte2 Spalte3 Spalte4 Spalte5 Spalte6 Spalte7 Spalte8 Spalte9

Ich aktivieren den Autofilter und möchte gerne in einem zufälligen Arbeitsblatt ein Filterkriterium
aus den Spalte1 - Spalte9 auswählen. Das ausgewählt Filterkriterium soll nun auf alle Arbeitsblätter,
bis auf Tabelle Übersicht angewandt werden.

---
supertux

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 81521344749

Url: https://administrator.de/forum/excel-vba-filter-auf-alle-arbeitsblaetter-81521344749.html

Ausgedruckt am: 31.12.2024 um 09:12 Uhr

3 Kommentare

Neuester Kommentar

Hallo supertux,

und wie hast du das realisiert?

Schon mal vielen Dank für deine Anleitung.

Gruß

Delta

Sub AktuellenFilterAufSheetsKopieren()
    Dim ws As Worksheet, f As Integer
    If ActiveSheet.AutoFilter.Filters.Count = 0 Then Exit Sub
    With ActiveSheet.AutoFilter.Filters
        For Each ws In Sheets
            If Not ws.Name = ActiveSheet.Name And Not ws.Name = "Übersicht" Then  
                For f = 1 To .Count
                    With .Item(f)
                        If .On Then
                            If .Operator Then
                                If .Operator = xlFilterValues Then
                                  ws.UsedRange.AutoFilter Field:=f, Operator:=.Operator, Criteria1:=.Criteria1
                                Else
                                  ws.UsedRange.AutoFilter Field:=f, Operator:=.Operator, Criteria1:=.Criteria1, Criteria2:=.Criteria2
                                End If
                            Else
                                ws.UsedRange.AutoFilter Field:=f, Criteria1:=.Criteria1
                            End If
                        Else
                            ws.UsedRange.AutoFilter Field:=f
                        End If
                    End With
                Next
            End If
        Next
    End With
End Sub