tekstbox groter dan cel waarde ??

[joske13]

Goede avond.

Ik ben een beginnend VBA-er en ik zit met een probleempje waar ik niet uitkom.

Ik wil dat een waarde in een tekstbox niet groter is dan een waarde in een cel.
Het lijkt mij dat dit niet mogelijk is op de één of andere manier. (textbox vergelijken met een cellwaarde)
Maar omdat ik dan ook weer niet begrijp waarom dit niet zou kunnen dacht ik even een berichtje te posten op "helpmij.nl"


If ("Admin_invoer.TB_Tussen_1.Value") > Sheets("Gegevens").Range("U3").Value Then
msgbox "tolerantie te groot"
Exit Sub
Else
msgbox "oke"
End If
Exit Sub
End Sub

Ik krijg bij bovenstaande steeds "tolerantie te groot" ongeacht welke waarde ik invul bij tekstbox "Admin_invoer.TB_Tussen_1"

Zit er iets fout, want ik ben al de gehele avond aan het spelen met ( en "
Select Case heb ik ook geprobeerd mbv voorbeelden van internet, maar helaas.



Kan en wil iemand mij een beetje op weg helpen?
Jos

 

[edmoor]

Waarom heb je Admin_invoer.TB_Tussen_1.Value tussen quotes staan? Dat is in ieder geval niet goed. En die ( en ) tekens er omheen zijn ook niet nodig.

Is het een textbox op een werkblad of in een userform?

 

[joske13]

Edmoor.

Bedankt voor je reactie.
Ik heb al een hele tijd aan het spelen met " en ( en van alles.

Als ik de formule wijzig naar:

If Admin_invoer.TB_Tussen_1.Value > Sheets("Gegevens").Range("U3").Value Then
msgbox "tolerantie te groot"
Exit Sub
Else
msgbox "oke"
End If
Exit Sub

Krijg ik nog steeds alleen maar de message box "tolerantie te groot"

Als ik de formule wijzig naar:


If Admin_invoer.TB_Tussen_1.Value > 25 Then
msgbox "tolerantie te groot"
Exit Sub
Else
msgbox "oke"
End If

Dan werkt hij wel, maar ik wil geen vaste waarde, maar een vergelijk met een cellwaarde.

Jos

 

[edmoor]

Ik kan zo niet zien hoe of wat er in cel U3 op het blad Gegevens staat. Plaats anders je documentje eens.

 

[OctaFish]

Zet eventueel je celwaarde om naar een getal, als je daar niet zeker van bent.

If Me.TB_Tussen_1.Value > Val(Sheets("Gegevens").Range("U3").Value) Then
     msgbox "tolerantie te groot"
Else
     msgbox "oke"
End If

En zou je je code willen opmaken met de CODE tag?

 

[joske13]

De toevoeging "VAL" en 2 haakjes heeft mijn probleem opgelost.
Ik denk dat ik hier zelf nooit uitgekomen zou zijn.
Zelf had ik de eigenschappen van de cell al wel gecontroleerd, en die staat op "getal met 2 decimale"

Hartelijk dak voor de geboden oplossing

If Me.TB_Tussen_1.Value > Val(Sheets("Gegevens").Range("U3").Value) Then
     msgbox "tolerantie te groot"
Else
     msgbox "oke"
End If

Jos