Thema: Auf Numeric überprüfen

Home

Abbildung - Auf Numeric überprüfen

Prozedur: cmdEintragen_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Auf Numeric überprüfen
Ablaufbeschreibung:
- Variablendeklaration
- Schleife bilden
- Rahmen um das jeweilige TextBox-Objekt bilden
- Wenn die TextBox-Eingabe nicht numerisch ist...
- Warnmeldung ausgeben
- Fokus auf die TextBox mit der fehlerhaften Eingabe setzen
- Startzeichen für die Zeichenauswahl festlegen (Index beginnt bei 0)
- Anzahl der zu markierenden Zeichen festlegen
- Prozedur verlassen
- Schleife bilden
- TextBox-Werte in Zellen eintragen

Code:


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