im Modul Userform:
For y = 1 To Textboxes.Count
TClass(1).Create TextBox1
Next y
Im Klassenmodul:
Public Function Create(Textbox As MSForms.Textbox) As Boolean
Set TB = Textbox
DefColor = Textbox.ForeColor
DefBold = Textbox.Font.Bold
DefItalic = Textbox.Font.Italic
End Function
Das ganze funktioniert auch.
Nunmehr möchte ich ganze dahingehend abändern:
Die Zurodnung zur Klasseninstanz TClass(1) soll
statt: TClass(1).Create TextBox1
über: TClass(1).Create "TextBox" & xy
(wobei xy für eine Zahl steht). Das führt zu einem Fehler.
Wer weiß Rat?
Gruß Wolfgang