Gruppe
Dialog
Problem
Wie kann ich UserForm-TextBox-Werte darauf überprüfen, ob es sich um Zahlen handelt und bei Zutreffen in Tabellen eintragen. Handelt es sich nicht um eine Zahl, soll eine entsprechende Meldung ausgegeben und der Wert in der TextBox markiert werden.
ClassModule: frmPruefen
Private Sub cmdEintragen_Click()
Dim iCounter As Integer
For iCounter = 1 To 3
With Controls("TextBox" & iCounter)
If IsNumeric(.Text) = False Then
MsgBox "Bitte Wert in TextBox" & iCounter & " berichtigen!"
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
Exit Sub
End If
End With
Next iCounter
For iCounter = 1 To 3
Cells(1, iCounter) = CDbl(Controls("TextBox" & iCounter).Text)
Next iCounter
End Sub
Private Sub cmdWeiter_Click()
Unload Me
End Sub
StandardModule: basMain
Sub CallForm()
frmPruefen.Show
End Sub