Makro irgendwie ..

Private Sub TextBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If IsNumeric(TextBox3) = False And TextBox3 <> "" Then MsgBox " Sie dürfen nur Ziffern eingeben", _ vbCritical, "Error !!!" TextBox3 = Left(TextBox3, Len(TextBox3) - 1) TextBox3 = "" TextBox3.SetFocus With TextBox3 .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Walter,
wie viele Leute willst du in wie vielen Threads noch mit immer dem selben Problembereich beschäftigen?
War der Vorschlag in https://www.herber.de/forum/messages/691800.html doch nicht gut genug? Dazu hast du geschrieben:


erst einmal herzlichen Dank für die Mühe, das war schon eine Menge Infos von DIR.
Natürlich habe ich dein Infos alle gelesen.
Wollte eine Einfache Lösung, das oben stehende Makro ist genau das was ich brauche.
Funktioniert auch.
Darf ich denoch eine Frage stellen ?
Wenn ja: Gibt es die Möglichkeit das man die Textbox nicht verlassen kann, bis man ein
RICHTIGES Datum eingesetzt hat ?
Hier jetzt beide Makros, wie gesagt funktionieren:
Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not (Chr(KeyAscii) Like "[-0-9]") Then
MsgBox "Bitte nur Ziffern 0 bis 9 oder das Minuszeichen eingeben!", _
vbCritical, "Error !!!"
KeyAscii = 0
End If
End Sub
usw...

Ich halt mich da künftig raus - und dabei bin ich gar nicht müde...
(vgl. https://www.herber.de/forum/messages/691999.html )
Grüße von Erich aus Kamp-Lintfort

Hallo Walter,
der Fehler tritt erst auf, nachdem man mit der Enter-Taste die Eingabe abgeschlossen hat. Nun ist es aber im Formular nur mit erhöhtem Aufwand möglich, in die selbe Textbox den Focus zurückzusetzen, die man soeben per Enter verlassen hat!
Statt dessen solten man alles unternehmen, ungültige Zeichen erst garnicht zuzulassen.
Man kann während der Eingabe überprüfen, an welcher Stelle welches Zeichen erlaubt ist.
Da Du aber etwas ganz Anderes willst, nämlich erst jedes Zeichen an jeder Stelle zulassen, dann mit einer Meldungsbox rumzumeckern, wenn die Eingabe falsch ist, denke ich, Du solltest noch mal ein bischen Theorie in Fornular-Vba zu pauken.
Für mich ist die Beantwortung dieses Threads damit beendet.
Gruß von Luschi
aus klein-Paris

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Dim i1 As Integer, s0 As String, s() As String, s2 As String 'Eingabemuster "00 000 00000" s1 = Me.TextBox1.Text n = Len(s1) Select Case n '0 bedeutet, daß geprüft wird, ob gerade das 1. Zeichen in _ die Textbox eingegeben wird usw. Case 0, 1, 3 To 5, 7 To 11 'nur Zahlen von 0 bis 9 erlaubt If Not (Chr(KeyAscii) Like "[0-9]") Then KeyAscii = 0 End If Case 2, 6 'nur Lehrzeichen an der 3. und 6. Stelle erlaubt If Not (Chr(KeyAscii) Like "[ ]") Then KeyAscii = 0 End If Case Else KeyAscii = 0 End Select End Sub

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Dim i1 As Integer, s0 As String, s() As String, s2 As String 'Eingabemuster "00 000 00000" s1 = Me.TextBox3.Text n = Len(s1) Select Case n '0 bedeutet, daß geprüft wird, ob gerade das 1. Zeichen in _ die Textbox eingegeben wird usw. Case 0, 1, 3 To 5, 7 To 11 'nur Zahlen von 0 bis 9 erlaubt If Not (Chr(KeyAscii) Like "[0-9]") Then KeyAscii = 0 End If Case 2, 6 'nur Lehrzeichen an der 3. und 6. Stelle erlaubt If Not (Chr(KeyAscii) Like "[ ]") Then KeyAscii = 0 End If Case Else KeyAscii = 0 End Select End Sub

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Dim s As String, n As Integer 'Eingabemuster "00 000 00000" s = Me.TextBox3.Text n = Len(s) Select Case n '0 bedeutet, daß geprüft wird, ob gerade das 1. Zeichen in _ die Textbox eingegeben wird usw. Case 0, 1, 3 To 5, 7 To 11 'nur Zahlen von 0 bis 9 erlaubt If Not (Chr(KeyAscii) Like "[0-9]") Then KeyAscii = 0 End If Case 2, 6 'nur Lehrzeichen an der 3. und 6. Stelle erlaubt If Not (Chr(KeyAscii) Like "[ ]") Then KeyAscii = 0 End If Case Else KeyAscii = 0 End Select End Sub

Private Sub TextBox3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If TextBox3.Value = "" Then TextBox3.Value = "00 000 00000" End If If IsNumeric(TextBox3) = False Then Cancel = True MsgBox "Nur Zahlen erlaubt !", vbCritical TextBox3 = "00 000 00000" TextBox3.SetFocus With TextBox3 .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With Else ActiveCell.Offset(0, 2) = Format(TextBox3, ("00 000 00000")) TextBox3 = Format(ActiveCell.Offset(0, 2), ("00 000 00000")) End If End Sub

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro irgendwie ..

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread