Keyascii Befehl

Hallo Experten,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi
das ist schon möglich.
allerdings nicht, wenn du schon eine Nachkommazahl hast, weil dann durch die Prüfung jede weiter Eingabe blockiert wird.
Hier ist deine Prüfung zu sensibel.
Auch wenn bereits eine Nachkommazahl vorhanden ist, muss die Eingabe erlaubt sein, wenn:
a) mindestens 1 Zeichen zum Überschreiben markiert ist, das kannst du mit TB2.SelLength = 0 abfragen.
b) sich die Einfügemarkierung vor dem Dezimalpunkt befindet, die Position kannst du mit TB2.SelPos abfragen und mit der Position des Dezimalpunkts vergleichen.
wenn du diese Prüfungen noch entsprechend einbaust, dann kannst du auch Ziffern einfügen und überschreiben.
Das funktioniert ja auch jetzt schon, solange du keinen Dezimalpunkt eingibst.
Gruß Daniel

If InStr(1, TB2, ".") > 0 Then If TB2.SelLenght = 0 Then If TB2.SelPos > Instr(1, TB2, ".") If Len(Mid(TB2, InStr(1, TB2, ".") + 1)) > 0 Then KeyAscii = 0 'Nur 1 Stelle nach dem Komma End If End If End If End If

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 TB2.SelLength = 0 Then If TB2.SelStart > InStr(1, TB2, ".") Then If Len(Mid(TB2, InStr(1, TB2, ".") + 1)) > 0 Then KeyAscii = 0 End If End If End If 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

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Keyascii Befehl

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread