Ich möchte gern wie bei ZÄHLENWENN, zählen wieviele TextBoxen gefüllt sind.
TextBox1 - 19.
Wie müsste ich das realisieren?
Danke im Voraus.
L.G. Frank H.
Private Sub CommandButton1_Click()
Dim ctr As Control, loZähler As Long
For Each ctr In Me.Controls
If TypeName(ctr) = "TextBox" Then
If Len(ctr) > 0 Then
loZähler = loZähler + 1
End If
End If
Next ctr
MsgBox "Gefüllte Textboxen: " & loZähler
End Sub
Gruß Werner
Private Sub CommandButton1_Click()
Dim ctr As Control, loZähler As Long
For Each ctr In Me.Controls
If TypeName(ctr) = "TextBox" Then
If Len(ctr) > 0 And Left(ctr.Name, 9) = "MyTextbox" Then
loZähler = loZähler + 1
End If
End If
Next ctr
MsgBox "Gefüllte Textboxen: " & loZähler
End Sub
grussPrivate Sub CommandButton1_Click()
Dim loZähler As Long, i As Long
For i = 1 To 19
If Len(Controls("TextBox" & i).Text) > 0 Then loZähler = loZähler + 1
Next i
MsgBox "Gefüllte Textboxen: " & loZähler
End Sub