Thema Datum  Von Nutzer Rating
Antwort
Rot Klassenmodul für Comboboxen
 13.01.2017 13:12:46 Dede
NotSolved
13.01.2017 15:10:22 Holger
NotSolved
14.01.2017 07:33:19 Gast34347
NotSolved

Ansicht des Beitrags:
Von:
Dede		 Datum:
13.01.2017 13:12:46		 Views:
1392		 Rating:
     
Antwort:
  Ja
Thema:
Klassenmodul für Comboboxen

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Klassenmodul für Comboboxen
 13.01.2017 13:12:46 Dede
NotSolved
13.01.2017 15:10:22 Holger
NotSolved
14.01.2017 07:33:19 Gast34347
NotSolved