Hallo Zusammen,
in VBA kann man ja Objekte über z.B. UserForm1.Textbox aufrufen.
Ich habe jedoch richtig viele Objekte und möchte einen Loop darüber laufen lasen. Dabei gebe ich jedoch die Bezeichnungen der Objekte als String ein.
Also z.b.
x = textbox
UserForm1. & x
So etwas in der Art funktioniert jedoch nicht.
Habt ihr einen Tipp wie das lösen kann?
LG
Moe
Hallo,
ich denke da hast du nicht alles richtig verstanden. Lade bitte eine Beispieldatei hoch, damit man sich das ansehen kann.
Hallo,
um das noch etwas zu verdeutlichen:
eine Textbox gibt, wie der Name schon sagt, Texte zurück. Dann heißt sie nicht stumpf TextBox, sondern zum Beispiel TextBox1. Daraus folgert: x = CInt(TextBox1)
Was du mit dem Bezug auf UserForm1 planst, hat sich für mich nicht erschlossen. Wenn dein Makro im Modul des UserForm steht, brauchst du darauf nicht verweisen.
Hab eine Excel angehängt :)
So könntest Du z.B. über TextBoxen loopen
Code:
Private Sub CommandButton1_Click()
Dim ctrl As MSForms.Control
For Each ctrl In Me.Controls
If TypeName(ctrl) = "TextBox" Then
Debug.Print "Textbox: " & ctrl.Name
End If
Next ctrl
End Sub
Danke schonmal. Und wie kann ich nun eine Eigenschaft dieser TextBox ändern? Also z.B. .visible= true
Wenn du Textboxen systematische Namen gibst, z.B. T_01, T_02, T_03:
Code:
Private Sub UserForm_Click()
For j=1 to 3
Megsbox Me("T_" & Tormat(j,"00").Text
Next
End Sub
Code:
Sub test()
Dim oCtrl As Object
Dim lastrow As Long
Dim rng As Range
Dim result
lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row + 1
Set rng = Sheet1.Range("a1").Resize(lastrow)
For Each oCtrl In UserForm1.Controls
result = Application.Match("UserForm1." & oCtrl.Name, rng, 0)
If IsNumeric(result) Then
oCtrl = "hi"
End If
Next
End Sub
sofern deine Controlnamenliste in der Tabelle irgend einen speziellen Grund hatte ,dann macht der obige Code folgendes
schleife über alle Controls der UserForm und Suche ob der Name in der Liste steht. wenn ja wird "Hi" an die Textboxen übergeben.
ps: oCtrl.visible = true oder Textbox1.visible = true
Hallo,
hier
zwei weitere Möglichkeiten, wie du die "
Controls" ansprechen kannst:
[
attachment=38567]