VBA Control selbst ansprechen

[MisterBurns]

Hallo miteinander,

gibt es in VBA eigentlich die Möglichkeit, ein Control auf einem Userform kürzer als mit dem Eigennamen anzusprechen? Beispiel:

Code:

Sub Checkbox1_Click()
If Checkbox1 = True Then
...
End If
End Sub

Ich finde es sehr umständlich, den Eigennamen bei der If-Abfrage zu verwenden. Geht das kürzer, also so wie

Code:

If Me = True Then

Habe online nichts dazu gefunden bzw. nicht die richtigen Suchworte :)

[snb]

Eine kürzere Codename könnte auch behilflich sein:

Code:

Private Sub C_01_Click()
   if C_01 then msgbox "Wahr"
End Sub

[Kuwer]

Hallo Berni,

es gibt das ActiveControl. Wenn es sich aber in einem Frame, einer MultiPage oder einem Register  befindet, gibt es diese(s) entsprechend zurück. Dann müsste man es entsprechend referenzieren wie Frame1.ActiveControl.

Gruß Uwe

[MisterBurns]

@snb: Das ist schon klar, aber löst das eigentliche Problem nicht, wenn man mehrere solcher Controls hat. Dann muss ich nämlich bei jedem immer den Indikator anpassen, was bei mehreren Controls ziemlich öd ist :)

@Uwe: Das ist es, vielen Dank!

[snb]

Dann wäre eine Klasse mit withevents zu bevorzügen.

https://www.snb-vba.eu/VBA_Userform_invo...le_en.html

[MisterBurns]

Leider übersteigt das mein VBA Wissen bei Weitem und mir fehlt für diese Weiterbildung die Zeit, Kraft und ehrlich gesagt auch die Motivation. Ich kann das Gelernte beruflich nicht gebrauchen, nur im Forum. Das ist mir derzeit zuwenig Anreiz. Dennoch danke für deinen Hinweis!  :100: