VBA - Undersøge om tallet er brugt

hej lillehans - her er et godt eksempel:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim rCell As Range
Dim bolBrugt As Boolean
    For Each rCell in Worksheets(\"Ark1\").Range(\"A1:A50\")
        If rCell = TextBox1 Then bolBrugt = True
    Next rCell
    \'Hvis værdien er brugt så
    If bolBrugt = True Then
        MsgBox TextBox1 & \" er brugt - prøv noget andet\"
        Cancel = True  \'Bliver i TextBox1
        TextBox1 = \"\"  \'Tømmer TextBox1
    End If
End Sub

Nix, desværre. Allerede når jeg forsøger at skrive et tal i tekstboksen får jeg at vide, at tallet er brugt. Der må mangle noget i dit svar. Prøv igen.

Kan du se ændringen ? :-)

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim rCell As Range
Dim bolBrugt As Boolean
    For Each rCell In Worksheets(\"Ark1\").Range(\"A1:A50\")
        If rCell.Value = CDbl(TextBox1) Then bolBrugt = True
    Next rCell
    \'Hvis værdien er brugt så
    If bolBrugt = True Then
        MsgBox TextBox1 & \" er brugt - prøv noget andet\"
        Cancel = True  \'Bliver i TextBox1
        TextBox1 = \"\"  \'Tømmer TextBox1
    End If
End Sub

Ja, der er flere ændringer, men nu giver det fejlen type mismatch i linien if rcell.value = osv

så taster du vist ikke et tal !!!!

Denne gang prøvede jeg at kopiere dit program til Word og herfra til VBA. Så lykkedes det. Jeg må have lavet en fejl i afskrivningen. Sorry!
Tak for hjælpen.

helt i orden :-)