TextBox und Optionsfelder
04.03.2004 08:40:31
Bernd
ich habe folgende frage zu einer userform:
hier der code für die TextBox:
Private Sub TextBox1_Change()
Dim jahr As String
jahr = TextBox1.Value
If IsNumeric(jahr) Then
ElseIf jahr <> "" Then
MsgBox "Bitte Zahlenwerte eingeben", vbCritical + vbOKOnly, "Falsche
Eingabe!"
TextBox1.Value = Left$(jahr, Len(jahr) - 1)
End If
End Sub
hier die codes für die Optionsfelder:
Private Sub poststat_Click()
Dim jahr As String
jahr = TextBox1.Value
If jahr = "" Then
MsgBox "Bitte Jahreszahl eingeben!", vbCritical + vbOKOnly, "Falsche
Eingabe!"
ElseIf jahr < 2004 Then
MsgBox "Jahreszahl ist zu niedrig!", vbCritical +
vbOKOnly, "Falsche Eingabe!"
ElseIf jahr > 2035 Then
MsgBox "Jahreszahl ist zu hoch!", vbCritical +
vbOKOnly, "Falsche Eingabe!"
Else:
Sheets("Datumangaben").Select
Range("c1").Select
ActiveCell.FormulaR1C1 = jahr
Sheets("Post").Select
Range("c1").Select
Unload Me
Post.Show
End If
End Sub
Private Sub scannerstat_Click()
Dim jahr As String
jahr = TextBox1.Value
If jahr = "" Then
MsgBox "Bitte Jahreszahl eingeben!", vbCritical + vbOKOnly, "Falsche
Eingabe!"
ElseIf jahr < 2004 Then
MsgBox "Jahreszahl ist zu niedrig!", vbCritical +
vbOKOnly, "Falsche Eingabe!"
ElseIf jahr > 2035 Then
MsgBox "Jahreszahl ist zu hoch!", vbCritical +
vbOKOnly, "Falsche Eingabe!"
Else:
Sheets("Datumangaben").Select
Range("c1").Select
ActiveCell.FormulaR1C1 = jahr
Sheets("Scannen").Select
Range("c1").Select
Unload Me
End If
End Sub
nun die fragen:
1.)
wenn ich nun die userform öffne und in der textbox etwas falsches eingebe, kommt die msgbox mit meldung. klicke ich die msgbox weg möchte ich, das der curser wieder in der textbox aktiv ist.
2.)
wenn ich vor der textbox eingabe ein optionsfeld anklicke, erscheint eine msgbox. die klicke ich weg und möchte dann, dass im optionsfeld der schwarze punkt wieder weg ist, so dass die optionsfelder alle leer sind.
ich hoffe ich habe mich klar genug ausgedrückt und ihr könnt mir helfen.
vielen dank für eure hilfe
mfg
bernd