Gebruik van worksheetfunction in Excel

[Seattle05]

Hi,

Ik heb in Excel's VBA een programma geschreven waarin graag een VBA worksheetfunctie gebruik, echter dit lukt me niet. Ik wil namelijk het rijnummer weten voor een bepaalde waarde. Nu heb ik het via een loop opgelost, wat debuggen van het programma niet erg relax maakt (ik heb het erg lomp geprogrammeerd).

Nou zou het super zijn als ik weet hoe je die Application.Worksheetfunction aan de praat krijgt.

Ik wil bv de Match functie gebruiken.

Dan vul ik in:
rij= Application.Worksheetfunction.Match(zoekwaarde, Worksheet("Sheet1").Range("B"),false) en dan krijg ik steeds een lege waarde, d.w.z rij=""

Wat doe ik fout?

Super bedankt,

Michiel

 

[LucB]

Michiel,

Met Range("B") bedoel je toch Range("B:B")

Deze syntax doet het bij mij.


Sub Zoek()
Dim rij As Long
Dim zoekwaarde
zoekwaarde = Range("C1").Value
rij = Application.WorksheetFunction.Match(zoekwaarde, Sheets(1).Range("B:B"), False)
MsgBox "Rijnummer is: " & rij
End Sub