Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

UserForm-TextBox-Werte auf Numeric prüfen und in Tabelle eintragen

Gruppe

TextBox

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.

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

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