Textbox anzahl ermitteln

Forumthread: Textbox anzahl ermitteln
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Textbox anzahl ermitteln

27.02.2023 15:18:03

Peter

Hallo Zusammmen,
wie kann ich festellen, wieviele Controls("Textbox") in einer Userform sind.
Viele Danke für Eure Hilfe.
Viele Grüße
Peter (hpo)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Textbox anzahl ermitteln

27.02.2023 15:30:50

Rudi
AW: Textbox anzahl ermitteln

27.02.2023 15:39:15

Daniel
AW: Textbox anzahl ermitteln

27.02.2023 16:35:32

Peter

AW: Textbox anzahl ermitteln

27.02.2023 15:30:50

Rudi

Hallo,

Private Sub Userform_Activate()
  Dim c As Object, i As Integer
  For Each c In Me.Controls
    i = i - (TypeName(c) = "TextBox")
  Next
  MsgBox i
End Sub

Gruß
Rudi

AW: Textbox anzahl ermitteln

27.02.2023 15:39:15

Daniel

HI
wenn du das zur Laufzeit der Userform ermitteln willst, so:


Dim crt As Control
Dim zähler As Long
For Each crt In Me.Controls
    zähler = zähler - (TypeName(crt) = "TextBox")
Next
msgbox zähler

Gruß Daniel

AW: Textbox anzahl ermitteln

27.02.2023 16:35:32

Peter

Hallo Rudi, hallo Daniel,
Vielen Dank für Eure Hilfe,
funtioniert einwandfrei.
Ihr seid so schnell, das ich nicht Posten konnte wie ich es inzwischen selbs gelöst bekommen habe.
Type AnzControl
checkbox As Integer
textbox As Integer
End Type

Function AnzChkTxT() As AnzControl
Dim i As Integer
For i = 0 To UserForm1.Controls.Count - 1
    Select Case TypeMane(UserForm1.Controls(i))
        Case "Checkbox": AnzChkTxT.checkbox = AnzChkTxT.checkbox + 1
        Case "TextBox": AnzChkTxT.textbox = AnzChkTxT.textbox + 1
    End Select
Next i
End Function

Viele Dank
Peter (hpo)