Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1192to1196
1192to1196
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

textbox(en)

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
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: textbox(en)
16.01.2011 22: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

Anzeige
AW: textbox(en)
16.01.2011 23: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 ...
16.01.2011 23: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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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