Liebe VBA-Experten,
ich komme bei einer VBA-Programmierung nicht weiter und finde nicht wo der Fehler liegt. Ich habe eine Datei. Auf einem Tabellenblatt (sagen wir Tabelle1) ist ein CommandButton mit untenstehendem Code. Der Code soll das Tabellenblatt "III. Activities legal areas" aktivieren und dann einen Autofilter mit mehreren Kriterien setzen. Die Kriterien kommen aus den Zellen D5:D10. Gefiltert werden sollen die Daten ab Zeile 13 (in Zelle A13 steht der erste Wert; es gibt keine Spaltenüberschriften)
Könnt ihr mir weiterhelfen? Vielen lieben Dank im Voraus!!
Private Sub CommandButton2_Click()
Sheets("III. Activities legal areas").Select
With ActiveWindow
.ScrollColumn = 1
.ScrollRow = 1
End With
Sheets("III. Activities legal areas").Range("A1").Select
ActiveWindow.Zoom = True
Dim KriterienAutofilter As Variant
Dim lngZeileMax As Long
With Sheets("III. Activities legal areas")
lngZeileMax = .Range("A12" & .Rows.Count).End(xlUp).Row
KriterienAutofilter = Array(.Range("D5").Text, _
.Range("D6").Text, _
.Range("D7").Text, _
.Range("D8").Text, _
.Range("D9").Text, _
.Range("D10").Text)
.Range("$A$13:$N$" & lngZeileMax).AutoFilter Field:=1, _
Criteria:=Array(KriterienAutofilter), _
Operator:=xlFilterValues
End With
End Sub