Für meine Textbox in einer UF habe ich folgendes deklariert:
Private Sub TB2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'nur Zahlen eingeben. Text verboten
Select Case KeyAscii
Case 8, 9, 48 To 57 'Backspace, Tab, 0 bis 9
If InStr(1, TB2, ".") > 0 Then
If Len(Mid(TB2, InStr(1, TB2, ".") + 1)) > 0 Then KeyAscii = 0 'Nur 1 Stelle _
nach dem Komma
End If
Case 46 'Punkt 44 = Komma
If InStr(1, TB2.Text, Chr(46), vbTextCompare) > 0 Then
KeyAscii = 0
Beep
End If
Case Else
KeyAscii = 0
Beep
MsgBox String(5, 32) & "Hier dürfen nur Zahlen eingegeben werden. ", -8
End Select
End Sub
Nun muss ich wenn bereits ein Wert in diese Textbox eingelesen wurde, um den Wert zu ändern, diesen markieren und mit der DEL - Tase löschen, damit ich den Wert ändern kann.
Ich möchte gerne mit der Maus den Wert markieren und direkt darüberschreiben können.
Ist das möglich?
Liebe Grüsse
Sascha