Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Problem mit ASCII | Herbers Excel-Forum


Betrifft: Problem mit ASCII von: ray
Geschrieben am: 14.01.2010 08:18:25

Hallo,

ich hab gestern hier im Forum den folgenden Code bekommen.
Ich wollte, dass in eine Textbox auf ein frm nur die Ziffer 1 oder 2 oder 0 eingegeben werden kann. Das funktioniert mit dem Code nur z. T.
Ich kann damit zwar keine Buchstaben eingeben, aber z. B. 1111 aber auch alle anderen Zahlen.

Kann noch mal jemand schauen:
Ziel: Input nur 0 oder 1 oder 2

Private Sub tbAnrede_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
' Eingaben nur Zahlen zu ASCII siehe http://www. _
code-knacker.de/ascii.htm

    Select Case KeyAscii
        Case 48 To 57 'steht für die Zahlenb 0-2
        Case Else:
        KeyAscii = 0
        MsgBox "irgendwas"
    End Select

End Sub



Viele Grüße aus Hamburg

Ray

  

Betrifft: AW: Problem mit ASCII von: Josef Ehrensberger
Geschrieben am: 14.01.2010 08:23:16

Hallo Ray,

stelle in den Eigenschaften der TB "MaxLength" auf 1 und verwende diesen Code.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  Select Case KeyAscii
    Case 48 To 50
    Case Else
      KeyAscii = 0
  End Select
End Sub



Gruß Sepp



  

Betrifft: AW: du musst..... von: hary
Geschrieben am: 14.01.2010 08:23:56


Hallo Ray
.....Deinen alten Thread ganz lesen. Habe gestern einen Code reingestellt.zulaessig nur 0 bis 2 .
gruss hary


  

Betrifft: Danke Euch beiden. Große Hilfe. Gruß oT von: ray
Geschrieben am: 14.01.2010 08:31:11

zu


  

Betrifft: AW: KeyAscii Liste von: hary
Geschrieben am: 14.01.2010 08:41:04

Hallo Ray
wenn Du es nochmal brauchst. Eine Liste erhaelst Du, wenn Du in eine leere Tabelle in A1 diese Formel schreibst:=ZEICHEN(ZEILE())
und bis 255 runterziehst. Dann hast Du KeyAscii Zeichen = Zeilenzahl
Gruss hary


  

Betrifft: Genial!!!! Vielen Dank Harry. !!!! oT mGruß von: ray
Geschrieben am: 14.01.2010 08:53:04

ot


Beiträge aus den Excel-Beispielen zum Thema "Problem mit ASCII"