vielleicht kann sich Boris noch einmal melden, der mir diese Unterstützung gab.
Makro:
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode <> 13 And KeyCode <> 8 Then 'Enter und Tab-Back sind zugelassen
If KeyCode < 96 Or KeyCode > 105 Then '0-9 ist erlaubt
MsgBox "Falsche Eingabe" 'Nur zum Testen - sonst kommentieren
TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
End If
End If
End Sub
Hiermit kann ich auch nicht die "normalen Zahlen eingeben, das geht nicht da Laptop, kein Zahlenblock vorhanden.
Vielleicht kann mal eine Liste haben, damit ich das Makro ändern kann.
Sonst funktioniert alles PRIMA.
Gruß Walter