hab hier ein Prob. Ich habe mehrere Sheets in einer Mappe mit teilweise mehreren Listenfeldern(Tabellenbereichen). Bei genau diesen ListObjects möchte ich per Makro gern in der gesamten Mappe auf Knopfdruck alle Autofilter.Applyfilter durchführen.
hab versucht die ListObjects zu zählen pro Blatt und per Array dann zu aktualisieren... geht _ nicht (bei mir). Nächster versuch poste ich mal:
Sub Listenobjekte_aktualisieren()
Dim zaehler, i, zz, ll As Integer
Dim blattname() As String
Dim objList As Object
'Anzahl Blätter und redim des Array
zaehler = ActiveWorkbook.Sheets.Count
ReDim blattname(zaehler) As String
i = 0
For i = 1 To zaehler
On Error Resume Next
'jede Tabelle durchgehen
ThisWorkbook.Sheets(i).Select
zz = ThisWorkbook.Worksheets(i).ListObjects.Count 'da hängt es. läuft ohne Fehler, zz hat _
_
_
aber keinen Wert
For ll = 1 To 99
ThisWorkbook.Worksheets(i).ListObjects("Tabelle" & ll).AutoFilter.ApplyFilter
' hier passiert in der Liste nichts....
Next ll
Next i
End Sub