Hey Leute, vielleicht kann mir jemand helfen. Habe in einer UF mehrere Comboboxen mit Namen "Kombo1" bis "Kombo10" und möchte diese in ein Klassenmodul zusammenfassen. Bisher siehts so aus:
Klassenmodul namens clcCombo
Option Explicit
Private WithEvents objCBO As MSForms.ComboBox
Public Sub create(objCntrl As Object)
Set objCBO = objCntrl
End Sub
Private Sub objCBO_Change()
MsgBox "Test"
End Sub
Code in UserForm
Public objCombobox() As clcCombo
'.....
Private Sub UserForm_Initialize()
'....
Dim objCntrl As Object
Dim intIndex As Integer
For Each objCntrl In Infos.OLEObject
If objCntrl.progID = "Forms.ComboBox.1" Then
ReDim Preserve objCombobox(intIndex)
Set objCombobox(intIndex) = New clsCombo
objCombobox(intIndex).create objCntrl.Object
intIndex = intIndex + 1
End If
Next
End Sub
Wenn ich das ganze versuche zu testen, bekomme ich einen Fehler in "Public objCombobox() As clcCombo": Benutzerdefinierter Typ nicht definiert.
Habe leider noch keinerlei Erfahrungen mit Klassenmodulen und komme damit nur schwer zurecht.
Danke, Grüße
|