Compileerfout: Er wordt een Function of Variabele verwacht

[mdekker15]

Ik heb een macro waarin een waarde van een cel in een aangegeven bereik gezocht wordt. Vervolgens wordt de cel met de gevonden waarde geactiveerd. Dan wordt de gehele rij waarin deze cel staat geselecteerd en de inhoud daarvan gewist.

Sub Find()

Set RangeToSearch = Range("A6:A500")
SearchValue = Range("A5").Value
If SearchValue = "" Then
End If
For Each SpecificCell In RangeToSearch
If SpecificCell.Value = SearchValue Then
SpecificCell.Activate
ActiveCell.EntireRow.Select
Selection.ClearContents
End If
Next SpecificCell
End Sub

Nu krijg ik een Compileerfout: Er wordt een Function of Variabele verwacht.
En SearchValue = wordt blauw.
Wat doe ik fout?

 

[That Guy]

probeer de volgende code ipv. die van jou:

Sub Find()


dim rangeToSearch
dim searchValue

RangeToSearch = Range("A6:A500")
SearchValue = Range("A5").Value

For Each SpecificCell In RangeToSearch
   If SpecificCell.Value = SearchValue Then
      SpecificCell.Activate
      ActiveCell.EntireRow.Select
      Selection.ClearContents
   End If
Next SpecificCell


End Sub

 

[mdekker15]

Dat werkt beter. TOP! Dank je wel.