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

Textbox nur Zahlen von 1-3 zulassen


Betrifft: Textbox nur Zahlen von 1-3 zulassen von: VpG
Geschrieben am: 25.09.2017 18:46:44

Ich glaube, ich habe ne einfache Frage für die Gemeinde.

Ich habe in einem Userform eine TextBox, die ich per Hand befülle, der Wert wird wiederum in eine Tabelle eingetragen.
Jetzt möchte ich erreichen, dass man in diese TextBox nur die Zahlen von 1 - 3 eintragen darf, andernfalls soll das Textfeld leer bleiben.

Wie bekomme ich das hin?

  

Betrifft: AW: Textbox nur Zahlen von 1-3 zulassen von: Hase
Geschrieben am: 25.09.2017 18:53:56

Hi,

vielleicht über eine kleine IF Abfrage mit Messagebox, damit der user auch weiß was er falsch gemacht hat.

   If textbox1.Value <= 3 Then 
Msgbox "Wert ist nicht zulässig!" 
Else
(Hier entsprechende Zelle ansprechen)
End If
 



  

Betrifft: AW: Textbox nur Zahlen von 1-3 zulassen von: Hase
Geschrieben am: 25.09.2017 18:56:56

Oh habs gerade nochmal genauer gelesen soll ja von 1 bis 3 sein

In dem Fall

 
If textbox1.Value <= 1 And textbox1.Value >=3 Then 
Msgbox "Wert ist nicht zulässig!" 
Else
(Hier entsprechende Zelle ansprechen)
End If 



  

Betrifft: AW: Textbox nur Zahlen von 1-3 zulassen von: ChrisL
Geschrieben am: 25.09.2017 18:59:44

Hi

https://www.herber.de/forum/archiv/692to696/692490_In_Textbox_nur_Zahlen_zulassen.html
https://www.herber.de/forum/archiv/812to816/812327_In_Textbox_nur_Zahlen_zulassen.html

Einfach mal ASCII-Table googlen, dann findest du die richtigen Codes für 1-3.

cu
Chris


  

Betrifft: AW: Textbox nur Zahlen von 1-3 zulassen von: Werner
Geschrieben am: 25.09.2017 19:01:10

Hallo,

hier noch mit Prüfung, ob auch tatsächlich eine Zahl eingegeben wurde.

Private Sub TextBox1_Change()
If Me.TextBox1 <> "" Then
    If IsNumeric(Me.TextBox1) Then
        If CLng(Me.TextBox1) > 3 Or CLng(Me.TextBox1) < 1 Then
            MsgBox "Nur Zahlen 1-3 zulässig."
            Me.TextBox1 = ""
        End If
    Else
        MsgBox "Nur Zahlenwerte zulässig"
        Me.TextBox1 = ""
    End If
End If
End Sub
Gruß Werner


  

Betrifft: AW: Textbox nur Zahlen von 1-3 zulassen von: Sepp
Geschrieben am: 25.09.2017 19:04:31

Hallo ?

Private Sub UserForm_Initialize()
TextBox1.MaxLength = 1
End Sub

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


Gruß Sepp



  

Betrifft: AW: Textbox nur Zahlen von 1-3 zulassen von: Daniel
Geschrieben am: 25.09.2017 19:21:05

Hi

In dem Fall nimm eine Combobox

Groß Daniel


  

Betrifft: AW: Textbox nur Zahlen von 1-3 zulassen von: VpG
Geschrieben am: 25.09.2017 21:49:57

Guten Abend an alle, viele Lösungen, eine habe ich genommen, die prima funktioniert.

Vielen Dank

VpG


  

Betrifft: Gerne u. Danke für die Rückmeldung. o.w.T. von: Werner
Geschrieben am: 26.09.2017 15:36:20




Beiträge aus den Excel-Beispielen zum Thema "Textbox nur Zahlen von 1-3 zulassen"