ich möchte das Kriterium für den Autofilter aus der Zelle C1 holen. Dort steht z.B. LK2008, ich brauche davon aber immer nur die rechte vierstellige Zahl als Wert.
Irgendwie funktioniert mein Versuch nicht, komme aber nicht drauf, was falsch ist.
Dim FilterLK As Integer
FilterLK = ActiveSheet.Range(Right("C1", 4)).Value
MsgBox FilterLK
.Range("Q2").AutoFilter
.Range("$Q$2:$Q$" & LzA2).AutoFilter Field:=17, Criteria1:=FilterLK
Besten Dank für Eure Hilfe und Servus, Walter