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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen