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

Eingabe erzwingen in einer Textbox

Betrifft: Eingabe erzwingen in einer Textbox von: selma
Geschrieben am: 28.08.2006 10:41:20

Hallo Excel-Experten,

ich möchte, dass in einer Textbox ein Wert eingegeben werden muss.
Die Textbox darf erst verlassen werden, wenn ein Wert drin steht.

Bisher habe ich folgenden Code.

Private Sub textbox149_AfterUpdate()
   On Error Resume Next
    If Not IsNumeric(CDbl(TextBox149)) Then
        If TextBox149 = "" Then Exit Sub
        Cancel = True
        Exit Sub
    End If
    On Error GoTo 0
    'Komma und Tausenderpunkte setzen. Prüfen obe Feld leer
    Select Case CDbl(Me.TextBox149.Value)
        Case Is <= 0.01
             Me.TextBox149.Text = Format(CDbl(Me.TextBox149) * 100, "##,##0.00") & " %"
        Case Is <= 0.1
            Me.TextBox149.Text = Format(CDbl(Me.TextBox149) * 10, "##,##0.00") & " %"
        Case Is <= 1
            Me.TextBox149.Text = Format(CDbl(Me.TextBox149) * 1, "##,##0.00") & " %"
        Case Is <= 100
            Me.TextBox149.Text = Format(CDbl(Me.TextBox149), "##,##0.00") & " %"
        Case Is > 100
            MsgBox "Unzulässiger Prozentwert"
            Me.TextBox149.Text = Format(CDbl(1), "##,##0.00") & " %"
    End Select
End Sub


Was muss ich ändern, dass die "Zwangseingabe" funktioniert.

Im Voraus bereits danke

viele Grüsse
selma
  


Betrifft: AW: Eingabe erzwingen in einer Textbox von: ChrisL
Geschrieben am: 28.08.2006 11:57:17

Hallo Selma

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = "" Then Cancel = True
End Sub


Gruss
Chris


  


Betrifft: AW: Eingabe erzwingen in einer Textbox von: selma
Geschrieben am: 28.08.2006 12:08:17

Hallo Chris,

Danke für Deine Antwort.

Wenn "Blank" eingegeben wird bleibt der Cursor in der Textbox.
Bei Eingabe von 0 springt der Cursor in die nexte Textbox. Dies sollte nicht sein.
Auch bei 0 soll eine andere Eingabe erzwungen werden.

Viele Grüsse
selma


  


Betrifft: AW: Eingabe erzwingen in einer Textbox von: ChrisL
Geschrieben am: 28.08.2006 12:09:28

Hallo

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = "" Or TextBox1 = "0" Then Cancel = True
End Sub



 

Beiträge aus den Excel-Beispielen zum Thema "Eingabe erzwingen in einer Textbox"