Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.07.2025 16:49:43
16.07.2025 16:28:01
16.07.2025 15:14:00
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Wenn alle TextBox leer dann Exit Sub

Wenn alle TextBox leer dann Exit Sub
frank
Hallo
Bei wenigen TextBox prüfe ich den Inhalt so
If TextBox3.Text = "" And _
TextBox4.Text = "" And _
TextBox32.Text = "" And _
TextBox33.Text = "" Then
Exit Sub
Bei vielen TextBox wird es doch eine lange Liste.
Die Prüfung mit einer Schleife krieg ich nicht hin.
Die TextBox befinden sich jeweils in Frame1, Frame2, usw.
Kann man auch alle TextBox in einer Frame prüfen?
Wenn alle TextBox in Frame1 und Frame4 leer sind dann Exit Sub.
gruß
Frank
Anzeige
AW: Wenn alle TextBox leer dann Exit Sub
13.12.2010 17:49:31
Rudi
Hallo,
etwa so:
Private Sub CommandButton1_Click()
Dim c As Control, blnCheck As Boolean
blnCheck = True
For Each c In Frame1.Controls
If TypeName(c) = "TextBox" Then blnCheck = blnCheck And c = ""
Next
If blnCheck Then Exit Sub
End Sub

Gruß
Rudi
Anzeige
Vielen Dank
13.12.2010 19:17:11
frank
.
AW: Vielen Dank
13.12.2010 20:13:21
Lutz
Hallo,
warum, oder besser gesagt wodurch, wird die Variable "blnCheck" in der nachfolgenden Codezeile verändert?
If TypeName(c) = "TextBox" Then blnCheck = blnCheck And c = ""
M.f.G.
Lutz
AW: Wenn alle TextBox leer dann Exit Sub
13.12.2010 21:21:23
Gerd
Hallo Lutz!
Startwert= True
(True And True)= True
(True And False)=False
(False And True)= False
(False And False)= False
So bleibt einmal False dann False.
Notwendig ist das hier nicht unbedingt. Man könnte es auch mit
If TypeName(c) = "TextBox" And c "" then blncheck= false: Exit For
lösen.
Gruß Gerd
Anzeige
AW: Wenn alle TextBox leer dann Exit Sub
13.12.2010 21:37:19
Lutz
Hallo Gerd,
danke für die Erklärung.
M.f.G.
Lutz

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige