ja, in jouw voorbeeld (wat ik heb gedownload) werkt het idd heel mooi maar bij mij met de letterlijke copie nog steeds niet... (met een variable ook niet)
NB: is alleen het relevante vd sub
Private Sub CommandButton1_Click()
Dim waarde As Variant
waarde = "<" & Range("E58").Value + 1
Sheets("1b").Unprotect "pw"
Sheets("1b").Cells(1).AutoFilter 1, waarde, , , 0
Sheets("1b").Protect "pw"
End sub
NB: is alleen het relevante vd sub
Private Sub CommandButton1_Click()
Dim waarde As Variant
waarde = "<" & Range("E58").Value + 1
Sheets("1b").Unprotect "pw"
Sheets("1b").Cells(1).AutoFilter 1, waarde, , , 0
Sheets("1b").Protect "pw"
End sub