Office: select Case mehrere Bedingungen ??

Weissbart · 12. Januar 2013

Hallo zusammen

ich versuche mich grad mit select Case eigenschaft komme da aber nicht auf den gewünschten Effekt

Ich möchte die Textboxeingabe beschränken

auf erstes Zeichen = N und/oder n und 0-9
auf zweites Zeichen = 0-9
auf drittes zeichen = 0-9
auf vierstes Zeichen = 0-9

bekomme die mehrfach eingabe im ersten Zeichen nicht hin

kann mir da jemand weiterhelfen bitte

Code:

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case Len(TextBox3.Text)
Case 0: If Not Chr(KeyAscii) Like "[N]" Then KeyAscii = 0
Case 1: If Not Chr(KeyAscii) Like "[0-9]" Then KeyAscii = 0
Case 2: If Not Chr(KeyAscii) Like "[0-9]" Then KeyAscii = 0
Case 3: If Not Chr(KeyAscii) Like "[0-9]" Then KeyAscii = 0
Case Else: KeyAscii = 0
End Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Schonmal Danke
gruß Ron

:)

Luschi · 13. Januar 2013

Hallo Ron,

so funktioniert es bei mir in E2010: Code:

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim s As String, b As Boolean

s = Chr(KeyAscii)
b = False

'Like "#" entspricht Like [0-9]
'Like "[0-9]nN" bzw. "#nN" funktioniert nicht
Select Case Len(TextBox3.Text)
Case 0: b = s Like "[Nn]" Or s Like "#"
Case 1 To 3: b = s Like "#"
End Select
'Debug.Print b
If Not b Then
KeyAscii = 0
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß von Luschi
aus klein-Paris

Weissbart · 16. Januar 2013

Coole Sache funktioniert auch in 2007 ^^^

ich danke dir
Luschi

Gruß
Ron

Office: select Case mehrere Bedingungen ??

select Case mehrere Bedingungen ??

select Case mehrere Bedingungen ??

select Case mehrere Bedingungen ?? - Similar Threads - select Case Bedingungen

Instr() und select case

Select Case Problem (weitere Bedingung einfügen)

Select Case mit mehreren Bedingungen?

Select Case statt mehrere IF Anweisungen?

Select Case Abfrage

vba Zeilenhöhe und breite, Format ändern in select case sche

Dropdown / SVerweis / Select Case?