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

Focus wieder zurück in Textbox



Excel-Version: 9.0 (Office 2000)

Betrifft: Focus wieder zurück in Textbox
von: erich
Geschrieben am: 31.05.2002 - 20:26:43

Hallo Profis,

Wie bekomme ich den Mauszeiger wieder in meine Textbox wenn eine falscheingabe erfolgt?

mein code:


 Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(TextBox4.Text) = 0 Then Exit Sub
    If Not IsNumeric(TextBox4.Text) Then
        Beep
        MsgBox "Nur Zahlen bitte!"
        TextBox4.Text = ""
ElseIf Len(Me.TextBox4.Value) > 8 Or Me.TextBox4.Value < 80000000 Then
        MsgBox "Die IGF- Nr. ist 8 stellig!"
        TextBox4.Text = ""
End If
End Sub

kann mir jemand weiterhelfen?

mfg
erich

  

Re: Focus wieder zurück in Textbox
von: Eberhard Sch.
Geschrieben am: 31.05.2002 - 22:31:12

hallo Erich
mit dem folgenden Code bleibt der Focus in der Textbox bis der Wert richtig eingegeben wird.


Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(TextBox4.Text) = 0 Then Exit Sub
    If Not IsNumeric(TextBox4.Text) Then
        Beep
        MsgBox "Nur Zahlen bitte!"
        TextBox4.Text = ""
        Cancel = True
        Exit Sub
    End If
    If Len(Me.TextBox4.Value) > 8 _
        Or Me.TextBox4.Value < 80000000 Then
        MsgBox "Die IGF- Nr. ist 8 stellig!"
        TextBox4.Text = ""
        Cancel = True
    End If
End Sub

Gruß Eberhard


  

Re: Focus wieder zurück in Textbox
von: erich
Geschrieben am: 31.05.2002 - 23:37:19

Hallo Eberhard,

danke für deine hilfe, jetzt ist mir geholfen.
danke

mfg
erich


 

Beiträge aus den Excel-Beispielen zum Thema "Focus wieder zurück in Textbox"