ich versuche die Benutzeroberfläche meiner Userformen zu übersetzten (dieser Abschnitt im folgenden Code vereinfacht als Msgbox strText - Zeile 50). Die Userformen kann ich ohne Problem ansprechen (Zeile 10+20).
Meine Frage: wie kann ich die Objekte (Buttons) mit einer Caption innerhalb der gefundenen Userform ansprechen (Zeile 30 bis 60)?
(Anmerkung: führe ich die Zeilen 30 bis 60 in einer Userform mit der Änderung me.controls aus, dann funktioniert es für diese eine Userform.)
Public Sub Sprache_UserForm_uebersetzten()
Dim objControl As MSForms.Controls
Dim vbcom
10 For Each vbcom In Application.VBE.ActiveVBProject.VBComponents
20 If vbcom.Type = 3 Then 'Dann Userform
'For Each objControl In UserForms(vbcom.Name).Controls '--> Fehler 13
30 For Each objControl In vbcom.Controls '--> Fehler 438
40 strText = objControl.Name
50 MsgBox strText
60 Next objControl
70 End If
80 Next vbcom
End Sub
Vielen Dank!
Mario