Anzahl TextBoxen einer Userform
27.09.2004 01:32:05
Jens_Pu
gibt es eine einfachere Möglichkeit um festzustellen wie viele TextBoxen eine Userform enthält, oder geht das nur so in der Art?
Private Sub CommandButton3_Click()
Dim i As Integer
Dim j As Integer
j = 0
For i = 0 To Me.Controls.Count - 1
If InStr(Controls(i).Name, "TextBox") Then
j = j + 1
End If
Next
MsgBox j
End Sub
Gruß Jens
Anzeige