habe ein kleines Problem.
Ich möchte bei Eingabe eines Buchstabens das die MSG-Box erscheint, und anschließend die MSG-Box bei der Eingabe von Zahlen bzw. Werten größer als 4 !
Fehler:
Leider wird bei Eingabe an der 4.Stelle eines Buchstabens auch die Warnung ausgelöst. Bei der Eingabe der Zahl kann es an der 4.Stelle auch noch ein Buchstabe sein. !!!
Fehler 2:
Wenn ich eine Zahle größer als 4 eingebe keine Reaktion !
Hier mein Makro:
Private Sub TextBox1_Change()
Dim EingabeZahl As String
If IsNumeric(TextBox1) = False Then
Beep
MsgBox "Nur Zahlen erlaubt, kein Text !", vbCritical
TextBox1 = "0000"
If Len(TextBox1) > 4 Then
Beep
MsgBox " Achtung " & Chr(13) & Chr(13) & _
"Verkäufer Nr. ist 4 stellig," & Chr(13) & Chr(13) & _
"bitte NEU eingeben !!!" & Chr(13), vbCritical
TextBox1 = "0000"
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Else
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Worksheets("Muster").Range("I2") = CDbl(TextBox1)direkt rein !
TextBox1 = Format(Worksheets("Muster").Range("I2").Value, ("0000"))
Label1.Caption = Worksheets("Muster").Range("I4")
End If
End If
End Sub
Hoffentlich kann mir jemand helfen oder einen Tip für mein Makro geben.
Gruss Walter MB