Kijk of dit cijfer in een range staat

[ExcelAmateur]

Formleden,

Ik ben opzoek naar een stukje code om te checken of het cijfer dat op een Userform in een TextBox staat in de range voorkomt.
Een deel van wat ik hier heb vond ik met zoeken.
Helaas geeft hij bij elk cijfer wat je invoert de fout melding.
De bedoeling is als het cijfer(T) niet in de Range voorkomt, hij de melding geeft.
Als het cijfer wel in de Range staat moet hij door gaan.

Sub CijferControle() 'Dit werkt niet zoals ik het  wil
  Test = Application.WorksheetFunction.Match(T, Blad5.Range("J12:S12"))
    If Not IsError(Test) Then
      MsgBox "Dit cijfer word niet gebruikt", , "Foute invoer"
      T = ""
    End If
End Sub

Er staan zat voorbeelden met Match maar net niet wat je zoekt.

 

[edmoor]

Kijk eens of dit wat voor je is:

    Dim T As String
    Dim c As Object
    
    T = "2"
    With Sheets("Blad5").Range("J12:S12")
        Set c = .Find(T, LookIn:=xlValues)
        If Not c Is Nothing Then
            MsgBox "Gevonden"
        Else
            MsgBox "Niet Gevonden"
        End If
    End With

 

[Niels28]

Sub CijferControle() 'Dit werkt niet zoals ik het  wil
T = 12
Set C = Sheets("Blad5").Range("J12:S12").Find(T)
If C Is Nothing Then MsgBox "Dit cijfer word niet gebruikt", , "Foute invoer"
End Sub

Niels

 

[ExcelAmateur]

edmoor & Niels,

Hartelijk bedankt voor de code.
Ik kreeg eerst een foutmelding en zag naderhand pas waarom.
Jullie hadden Sheets("...") gebruikt en ik Blad5.range("..")

Beide werken maar heb die van Niels gebruikt.

 

[edmoor]

Die was inderdaad meer direct op je vraag geënt