---

Hallo zusammen!

Habe schon lange nichts mehr gefragt! *g*
Aber jetzt würde ich wieder eine kleine Hilfe brauchen!

Ich möchte alle TextBox(en) in meiner Form verändern, ohne alle hinschreiben zu müssen.

Ich glaub es dreht sich nur um zwei Wörter:

Code:

---

    Set objTextBox as TextBox

    For Each objTextBox In form_SBP
        .Locked = Sperre
        .BackColor = color
    Next

---

Kann mir jemand sagen, wieso das nicht funktioniert?
(Bitte nicht lachen, ich weiß es wirklich nicht!)

Vielen Dank im Voraus

------------------
LG Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Toni,

Code:

---

...
for each objTextBox In form_SBP.Controls

---

Grüssle TP

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke erstmal!

Ich hab genau diesen Code stehen:
(aktuell: Sperre = False; color=&H80000004)

Code:

---

    For Each objTextBox In form_SBP.Controls
        objTextBox.Locked = Sperre
        objTextBox.BackColor = color
    Next

---

Es kommt aber eine Fehlermeldung:
"Objekt unterstützt diese Eigenschaft oder Methode nicht!"

------------------
LG Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Toni,

das muss gehen ... schreib mal statt set ... as Textbox ... dim .. as textbox

Code:

---

Sub test()

Dim oTxtBox As TextBox

For Each oTxtBox In UserForm1.Controls
    Debug.Print oTxtBox.Value
Next

End Sub

---

sind die Textboxen in einem Register oder einem anderen Steuerelement eingebettet???

Grüssle TP

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Weil du da ALLE Controls durchkämmst, nicht nur die Textboxen. Du musst innerhalb der freach-Anweisung erstmal prüfen, mit was für einem Control du es zu tun hast.

Gruß, Axel Strube-Zettler

------------------
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Leuchtet ein, dass mehrere versch. Controls auf meiner Form sind!

Wie kann ich nur die Textboxen herausfiltern?
(Aus reinem Interesse: Wie kann ich den Rest herausfiltern?)

Wie geht das, wenn ich z.B. alle Textboxen die in einem Frame eingebettet sind?

Vielen Dank

------------------
LG Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

sorry, nicht mein tag heute

Code:

---

Sub test()

Dim obj As Object
Dim oTextBox As TextBox

For Each obj In UserForm1.Controls
    If TypeName(obj) = "TextBox" Then
        Set oTextBox = obj
        Debug.Print oTextBox.Text
    End If
Next

End Sub

---

Grüssle TP

------------------

[Diese Nachricht wurde von BloodyMess am 25. Aug. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Somit hat sich auch geklärt, wie ich z.B. auf Labels odgl. zugreifen kann!

Macht es einen Unterschied, wenn ich die gesuchten Controls in einem Frame untergebracht habe?

Funktioniert schon, SUPPI!

------------------
LG Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Irgendwie dacht ich immer, dass es Probleme gibt, wenn man Controls auf Frames oder Register sucht. Funktioniert aber auch ohne Probleme.

Grüssle TP

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank!!!!!
Ihr habt mir wirlich sehr geholfen!

Danke!

------------------
LG Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP