AW: Texbox abfrage in schleife
08.03.2010 08:59:23
Tino
Hallo,
könnte so funktionieren.
Private Sub CheckTextBox(ByRef sInfo$, ParamArray TxTBox() As Variant)
Dim i As Integer
For i = Lbound(TxTBox) To Ubound(TxTBox)
If TxTBox(i) = "" Then
sInfo = sInfo & TxTBox(i).Name & vbCr
End If
Next i
If sInfo <> "" Then sInfo = "Eintrag fehlt in" & vbCr & vbCr & Left$(sInfo, Len(sInfo) - 1)
End Sub
Private Sub CommandButton1_Click()
Dim sInfo$
CheckTextBox sInfo, TextBox1, TextBox2, TextBox3, TextBox4
If sInfo <> "" Then
MsgBox sInfo, vbExclamation
Else
MsgBox "Alle ausgefüllt", vbInformation
End If
End Sub
Gruß Tino