Objekttyp als Übergabeparameter?
Harry
In meinem Programm gibt es zwei Sub-Routinen, die ich öfters benötige:
Sub BoxenDeaktivieren(usr As UserForm)
Dim ctl As MSForms.Control
For Each ctl In usr.Controls
If TypeOf ctl Is MSForms.TextBox Then
ctl.Enabled = False
End If
Next ctl
End Sub
Sub OptDeaktivieren(usr As UserForm)
Dim ctl As MSForms.Control
For Each ctl In usr.Controls
If TypeOf ctl Is MSForms.OptionButton Then
ctl.Enabled = False
End If
Next ctl
End Sub
Da die Prozeduren sich nur durch den entsprechenden Objekttyp (TextBox bzw. OptionButton) unterscheiden, würde ich sie gerne in eine gemeinsame Sub-Routine packen. Dazu wollte ich den Objekttyp als Parameter übergeben (zusammen mit der Userform) und entsprechend bei der If-Verzweigung abfragen. Leider klappts aber nicht mit der Übergabe des Objekttyps als Parameter (usr As UserForm, ObjTyp As ?).
Wäre schön, wenn mir jemand helfen könnte.
Grüße
Harry
Anzeige