ich versuche gerade einen Code anzupassen um eine andere Tabelle anzusprechen und muss passen :-)
Option Explicit
Sub SetzeAutofilter()
Dim i As Integer
Dim vAfWerte As Variant
With Worksheets("Tabelle2").Range("I1:I")
vAfWerte = .Offset(-29) '--> wat muss hier rinne ?
If Not .Parent.AutoFilterMode Then
.AutoFilter
Else
If .Parent.FilterMode Then .Parent.ShowAllData
End If
For i = 1 To .Parent.AutoFilter.Range.Columns.Count
If Len(vAfWerte(1, i)) Then
.AutoFilter Field:=i, Criteria1:=vAfWerte(1, i)
End If
Next i
End With
End Sub
Ich möchte eine Liste von Kriterien in Tabelle11 A1:A führen und diese an den Autofilter in Tabelle2 I1:I übergeben.Ich weiß jetzt nicht wie ichs machen soll!
Könnt Ihr euch das mal angucken.
Vielen Dank
MfG
Thorben