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
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
Please also mark the comments that contributed to the solution of the article
Content-Key: 81521344749
Url: https://administrator.de/contentid/81521344749
Printed on: June 15, 2024 at 22:06 o'clock
3 Comments
Latest comment
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
Gruß pp.