Foutmelding sysntaxisfout autofilter

[1965Peter]

Hallo,

Wie kan me helpen:
Deze code werkt:

Sub Filter_delete()


With Range("A2:A144")
 .AutoFilter 1, "<>AABBCC"
 .Offset(1).EntireRow.Delete
 .AutoFilter
End With
End Sub

Maar ik zou gaar de vaste tekst ("AABBCC") willen veranderen in de waarde van "A1"
Met mijn beperkte kennis had ik er dit van gemaakt, maar die geeft foutmelding Syntaxisfout.

Sub Filter_delete()


With Range("A49:A191")
 .AutoFilter 1,<> Range("A1").Value
 .Offset(1).EntireRow.Delete
 .AutoFilter
End With
End Sub

 

[Bram65]

verander Range("A1").value door Cells(1,1).text

 

[1965Peter]

Hallo Bram, Geeft dezelfde foutmelding.
Het ongelijkteken die veroorzaakt het probleem (<>), als ik deze weghaal dan werkt ie wel, alleen delete ik de regels die juist bewaard moeten blijven.

 

[AD1957]

verander de code in

.AutoFilter 1, "<>" & Range("A1").Value

 

[1965Peter]

Yess, Albert, dit is mijn oplossing.
Bedankt en iedereen die meegedacht hebben.