Wert in Textbox
20.01.2004 11:46:36
Jasmin
mein Problem hat sich mittlerweile verändert:
Nun soll beim wechseln der Textbox der Wert nicht gelöscht werden.
Hier der Code:
Private Sub TextBoxA_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBoxA.Text) Then
MsgBox "Sie sollten einen numerischen Wert eingeben..."
End If
If TextBoxA.Value > 266.032 Or TextBoxA.Value < 265.968 Then
MsgBox "Bitte Eingabe überprüfen"
MsgBox "Eingabe wiederholen?", vbYesNo
If vbYes Then TextBoxA.Value = ""
Else
TextBoxSNR.SetFocus
End If
End Sub
Für jede Hilfe bin ich dankbar!
Grüße Jasmin
Anzeige