textbox(en)

Forumthread: textbox(en)
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: textbox(en)

textbox(en)

Sonja

Hallo
gibt es eine möglichkeit alle textboxen abzufragen ob sie leer sind oder muss ich jede
einzelne textbox in eine if abrage prüfen?
gruß sonja

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: textbox(en)

Josef
AW: textbox(en)

Sonja
statt = einfach -> ungleich ...

Matthias

AW: textbox(en)

16.01.2011 23:43:44

Josef

Hallo Sonja,
Beispielhaft geht das z. B. so.

Private Sub CommandButton1_Click()
  Dim objCntrl As Msforms.Control

  For Each objCntrl In Me.Controls
    If TypeOf objCntrl Is Msforms.TextBox Then
      If objCntrl.Value = "" Then
        MsgBox "Textbox '" & objCntrl.Name & "' ist leer!"
        Exit Sub
      End If
    End If
  Next
End Sub

Gruß Sepp

AW: textbox(en)

17.01.2011 00:26:23

Sonja

Hallo Sepp
danke, ich habe nur nicht bis zum ende gedacht.
ich bräuchte noch eine funktion, wenn eine textbox von allen einen wert hat, dann zb. MsgBox...

statt = einfach -> ungleich ...

17.01.2011 00:48:53

Matthias

Hallo
evtl. ist Sepp nicht mehr Online
probiers einfach mal so:

Private Sub CommandButton1_Click()
Dim objCntrl As Msforms.Control
For Each objCntrl In Me.Controls
If TypeOf objCntrl Is Msforms.TextBox Then
If objCntrl.Value  "" Then
MsgBox "Textbox '" & objCntrl.Name & "' ist nicht leer!"
Exit Sub
End If
End If
Next
End Sub

Gruß Matthias

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!