Inputbox controleren op laatste waarde

[kibus]

Wie kan mij helpen het is de bedoeling dat bij de inputbox de laatste waarde eindigd op d en dit moet dus worden afgecheckt

Mijn code doet het niet, misschien moet ik het via een formulier doen??? graag een helpende hand

Edwin





sub Rij_bepaling ()

Dim zoeken As String
zoeken = InputBox("vul klant nr in", "vul in")

If zoeken = "=*d" Then
GoTo zoek
Else
MsgBox "fout deb nr ingevuld"
Exit Sub
End If

On Error GoTo foutje
zoek:
Cells.Find(What:=zoeken, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select

Exit Sub
foutje:
MsgBox "klant nr niet gevonden"



End Sub

 

[Wigi]

Over de Inputbox: lees hier. Gebruik Application.Inputbox en ook als type een 2 (laatste argument).

Verder dien je best de RIGHT functie in VBA te gebruiken.

 

[kibus]

die functie ken ik nog niet Wigi maar aldoende leert men als je tijd hebt graag een voorbeeldje over deze functie bedankt alvast voor jouw hulp

 

[Wigi]

die functie ken ik nog niet Wigi maar aldoende leert men als je tijd hebt graag een voorbeeldje over deze functie bedankt alvast voor jouw hulp

U vraagt, wij draaien.

Zie hier, materiaal van de hand van Dave Hawley.

Wigi