Microsoft Excel

Herbers Excel/VBA-Archiv

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

Problem mit Textbox | Herbers Excel-Forum


Betrifft: Problem mit Textbox von: ray
Geschrieben am: 14.01.2010 10:50:35

Hallo,

ich möchte beim verlassen einer Textbox prüfen, dass nur Zahlen drin stehen und die Tb nicht leer ist. Dieser Code funzt mit den Zahlen, ist die Box aber leer, kann man sie mit ENTER verlassen, man soll Sie aber nicht verlassen können bei leer.

Private Sub tbHzK_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(tbHzK) = False Or tbHzK = "" Then
tbHzK.SetFocus
End If
End Sub



Viele Grüße aus Hamburg

Ray

  

Betrifft: AW: Problem mit Textbox von: Josef Ehrensberger
Geschrieben am: 14.01.2010 10:54:15

Hallo Ray,

Private Sub tbHzK_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If Not Len(tbHzK) And Not IsNumeric(tbHzK) Then
    Cancel = True
  End If
End Sub



Gruß Sepp



  

Betrifft: Großartig. Vielen Dank Sepp. oTmGruß von: ray
Geschrieben am: 14.01.2010 10:57:16

ds


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