Option Explicit
Private mlngLength As Long
Private Sub TextBox1_Change()
Dim lngIndex As Long
With TextBox1
If IsNumeric(.Value) Then
If Len(.Value) < mlngLength Then Call Columns(1).ClearContents
For lngIndex = 1 To Len(.Value)
Cells(lngIndex, 1).Value = Mid$(String:=.Value, Start:=lngIndex, Length:=1)
Next
ElseIf Len(.Value) < mlngLength Then
Call Columns(1).ClearContents
Else
Call MsgBox("Ihre Eingabe ist keine gültige Zahl...!", vbExclamation)
End If
End With
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
mlngLength = Len(TextBox1.Value)
End Sub