VBA-Programmierung in Microsoft Excel

Nichtnumerische Eingaben in TextBox verhindern

Private Sub txtNumber_Change()
   If Len(txtNumber.Text) = 0 Then Exit Sub
   If Not Right(txtNumber, 1) Like "[0-9]" Then
      Beep
      MsgBox "Nur Zahlen bitte!"
      With txtNumber
         .SetFocus
         .SelStart = txtNumber.TextLength - 1
         .SelLength = 1
      End With
   End If
End Sub

StandardModule: basMain

Sub CallForm()
   frmZahlen.Show
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox