TextBoxen Formatierung nach verlassen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private m_objTextBoxes() As New Klasse1 Private Sub UserForm_Initialize() Dim objCtl As Control Dim nCnt As Integer For Each objCtl In Me.Controls If TypeOf objCtl Is MSForms.TextBox Then nCnt = nCnt + 1 ReDim Preserve m_objTextBoxes(1 To nCnt) Set m_objTextBoxes(nCnt).MyTB = objCtl End If Next objCtl End Sub

Dim v As Variant, i As Long 'hier stehen die TextBox-Nummern die es betreffen soll v = Array(207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, _ 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, _ 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 253, 254, 255, _ 256, 257, 258, 259, 260, 261, 262, 263, 264, 265, 266, 267) ReDim objTB(UBound(v)) For i = LBound(v) To UBound(v) Set objTB(i).myTB = Me.Controls("TextBox" & v(i)) Next i

Hallo Ron,
folgende Änderung im Klassenmodul:


Public Sub TextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If GroupA Then
TextBox.Text = TextBoxFormat(TextBox.Text, GroupA)
Else
If TextBox.TextLength  4 Then
Call MsgBox("Bitte genau 4 Zahlen eingeben.", vbExclamation, "Hinweis")
Cancel = True
End If
End If
End Sub
Private Sub mobjTextBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If GroupA Then
Select Case KeyAscii
Case vbKey0 To vbKey9, 44
If InStr(1, TextBox.Text, ",")  0 Then KeyAscii = 0
Case Else
KeyAscii = 0
End Select
Else
Select Case KeyAscii
Case vbKey0 To vbKey9
If TextBox.TextLength = 4 Then
Call MsgBox("Bitte nur 4 Zahlen eingeben.", vbExclamation, "Hinweis")
KeyAscii = 0
End If
Case Else
KeyAscii = 0
End Select
End If
End Sub


Achtung, das Exit-Event nicht komplett kopieren, nur den Teil zwischen Sub ... und 

End Sub !!!

Gruß

Nepumuk

Private Sub mobjTextBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If GroupA Then Select Case KeyAscii Case 44 If InStr(1, TextBox.Text, ",") 0 Then KeyAscii = 0 Case vbKey0 To vbKey9 'do nothing Case Else KeyAscii = 0 End Select Else Select Case KeyAscii Case vbKey0 To vbKey9 If TextBox.TextLength = 4 Then Call MsgBox("Bitte nur 4 Zahlen eingeben!", vbExclamation, "Eingabefehler") KeyAscii = 0 End If Case Else KeyAscii = 0 End Select End If End Sub

Beliebteste Forumthreads (12 Monate)

TextBoxen Formatierung nach verlassen

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

TextBoxen Formatierung nach verlassen

24 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)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread