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 Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Eingabe Überprüfung


Betrifft: Eingabe Überprüfung von: PALO
Geschrieben am: 13.04.2017 08:25:44

Hallo liebes Forum

Gibt es einen Weg in einer Userform die Eingabe eines Textes zu überprüfen?
In meinem Fall müsste ich unterscheiden ob zB 0,15 oder 15 eigegeben wird.
In meiner Anwendung sind hohe Zahlen wie 15 unmöglich und desswegen soll auf einen Tippfehler hingewieden werden.

Leider weiß ich garnicht wie ich das Lösen könnte und würde mich über jegliche Hilfe freuen :)

MfG

  

Betrifft: AW: Eingabe Überprüfung von: hary
Geschrieben am: 13.04.2017 08:50:25

Moin
Eine Moeglichkeit.

If IsNumeric(TextBox1) Then
  If Fix(CDbl(TextBox1)) > 0 Then MsgBox "Tippfehler"
End If

gruss hary


  

Betrifft: AW: Eingabe Überprüfung von: Bernd
Geschrieben am: 13.04.2017 08:51:34

Hi,

eventuell hilft Dir dieser Beitrag schon weiter:

https://www.herber.de/forum/archiv/756to760/759919_VBA_Textbox_Zahleneingabe_wertmaessig_beschraen.html

MfG Bernd


  

Betrifft: AW: Eingabe Überprüfung von: UweD
Geschrieben am: 13.04.2017 09:03:21

Hallo



Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'kein Text 
    Select Case KeyAscii
        Case 44, 46, 48 To 57 'Komma,Punkt,Ziffern 
        Case Else: KeyAscii = 0
    End Select
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Select Case TextBox1.Value
        Case Is < 1
            MsgBox "Eingabe Kleiner 1. OK?"
        Case Else
            MsgBox "Eingabe größer 1. TOP!"
    End Select
End Sub

LG UweD


Beiträge aus den Excel-Beispielen zum Thema "Eingabe Überprüfung"