Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1192to1196
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
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

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige