zoeken waarde in tabel

[kos]

Hallo allemaal;

Ik loop even vast op een macro. De bedoeling is dat dmv een invoerveld een waarde opgezocht wordt. Hele getallen worden gevonden, maar decimalen lukt niet echt.

sub
Dim sZoekterm As String
sZoekterm = Application.InputBox("Wat wil je vinden...?", "Zoeken", "zoekterm")
On Error Resume Next
Cells.Find(What:=sZoekterm, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
If Err.Number = 91 Then
MsgBox "Zoekterm niet gevonden!", vbOKOnly + vbInformation, "Zoekfout"
Exit Sub
End If
On Error GoTo 0
en sub

Ik ging er aanvankelijk vanuit dat er een komma / punt probleem was, maar dat is het dus niet. Iemand enig idee waar ik de fout inga?
Alvast bedankt voor jullie hulp

 

[Cobbe]

Test deze eens:

Sub zoek()
 Dim sZoekterm As String
 sZoekterm = Application.InputBox("Wat wil je vinden...?", "Zoeken", "zoekterm")
 On Error Resume Next
 Cells.Find(What:=sZoekterm [B][/B][COLOR="#FF0000"]* 1[/COLOR], After:=ActiveCell, LookIn:=xlFormulas, LookAt _
 :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
 False).Activate
 If Err.Number = 91 Then
 MsgBox "Zoekterm niet gevonden!", vbOKOnly + vbInformation, "Zoekfout"
 Exit Sub
 End If
 On Error GoTo 0
 End Sub

 

[kos]

Bedankt!!

Macro werkt nu wel