Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
436to440
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
436to440
436to440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Textboxen prüfen

Textboxen prüfen
06.06.2004 15:37:32
Neuling
Hallo
ich möchte in einer Userform prüfen ob die Textboxen 8 bis 12 ausgefüllt sind. Falls nicht soll eine Meldung ausgegeben werden, das diese noch gefüllt werden müssen.
Danke für die Hilfe.

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

Betreff
Datum
Anwender
Anzeige
AW: Textboxen prüfen
06.06.2004 16:13:38
Josef
Hallo ? (ein (Real)Name wäre nett!)
Probier mal.

Private Sub CommandButton1_Click()
Dim intC As Integer
Dim strMldg As String
For intC = 8 To 12
If Me.Controls("TextBox" & intC) = "" Then
strMldg = strMldg & intC & ", "
End If
Next
If Len(strMldg) > 0 Then
MsgBox "Die TextBox(en) " & Left(strMldg, Len(strMldg) - 2) & _
" müssen noch gefüllt werden!"
End If
End Sub

Gruß Sepp
AW: Textboxen prüfen
Neuling
Vielen Dank für die schnelle Hilfe!!!!
Funktioniert alles!
Der Neuling ;-)
AW: Textboxen prüfen
Ulf
dim c as byte
for c = 8 to 12
if controls("Textbox" & c)= "" then
msgbox "Textbox" & c & " muss ausgefüllt werden!"
exit for
end if
next
Ulf
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige