Office: Userform Eigenschaftswert "Caption" auslesen

Hallo liebe Forengemeinde,

Ich möchte die Cation-Eigenschaft einer Userform auslesen und bei bestimmtem Wert weitere Aktionen ausführen:

Code:

For Each ctlControl In Me.Controls

If TypeName(ctlControl) = "OptionButton" Then
ctlControl.Enabled = True
End If

If ctlControl.Caption = "Rückgabe" Then
ctlControl.BackColor = &HFF&  'rot
End If

Next ctlControl

[code]

Der Erste If-Befehl mit "TypeName" funktioniert, der zweite nicht.
Kriege jedes Mal die Fehlermeldung:
"Objekt unterstützt diese eigenschaft oder Methode nicht"

Seht ihr da eine Möglichkeit die Cation auszulesen? oder muss ich auf die "Name"-Eigenschaft ausweichen (die funktioniert).

Grüße
Anja

[trace]298003[/trace]

 

Entweder steh ich auf´n Schlauch , oder du versuchst gerade den "OptionsButton" auszulesen !?
Code:

Sehe ich doch richtig, dass die Hintergrundfarbe des Button "Rot" sein soll, wenn der "name" der UF "Rückgabe" ist !?
Hier sprichst du jedesmal den Button an ..... was meinen andere ?!

 

Hallo Aang39,

danke für die schnelle Antwort.
Ich glaube ich kann mit jeder If-Anweisung ein anderes Objekt ansprechen.
Es ist meines wissens nach unerheblich, welches Objekt angesprochen wird (ob OptionButton, CommandButton, TextBox) solange der Wert hinter dem "=" oder "Like" gefunden wird.

Es funktioniert, wenn man z.B.
Code:

über ctlControl.Name anspricht. So habe ich es jetzt gemacht. Dafür müssen die Namen der Objekte entsprechend umbenannt werden.

Ich hatte versucht über die Objektüberschrift (Caption) z.B. die Farbe zu ändern oder das objekt zu deaktivieren (enabled=false).

Danke trotzdem.

Grüße
Anja

 

Hallo Anja,

es gibt Steuerelemente, wie z. B. Linie, die haben keine Caption-Eigenschaft und dann kommt der beschriebene Fehler. Bevor Du Dich auf Caption beziehst musst Du ein passendes Steuerelement am Wickel haben.

Hang loose, haklesoft

 

Hallo haklesoft,

danke auch für deine Antwort Erklärung warum es nicht geht.
Am einfachsten wird es sein über die "Name"-Eigenschaft zu gehen und dabei "Objektbeschreibungsdisziplin" zu wahren.

Grüße
Anja