Combobox mit Klassenmodul
05.08.2019 10:41:56
Micha
ich habe mir für das Click-Ereignis von Excel Comboboxen folgenden Code zusammenkopiert.
Klassenmodul
Option Explicit
Public WithEvents objComboBox As MSForms.ComboBox
Private mobjOwner As Object
Public Property Set Owner(ByVal vNewValue As Object)
Set mobjOwner = vNewValue
End Property
Private Sub objCombobox_Click()
mobjOwner.myComboBox_Klick_Event objComboBox
End Sub
Private mobjEvents As Collection
Private mobjCombo As clsSheetEvent
Public Sub myComboBox_Klick_Event(objComboBox As Object) 'Änderungen in Combobox
'Hier stehen meine Anweisungen
End Sub
Private Sub Worksheet_Activate()
Call MakeEvents
End Sub
Public Sub MakeEvents()
Dim X As OLEObject
Set mobjEvents = New Collection
For Each X In Me.OLEObjects
If TypeName(X.Object) = "ComboBox" Then
Set mobjCombo = New clsSheetEvent
Set mobjCombo.objComboBox = X.Object
Set mobjCombo.Owner = Me
mobjEvents.Add mobjCombo
End If
Next
End Sub
Das funktioniert auch. Jetzt möchte ich zusätzlich noch das MouseDown Ereignis abfragen. Dazu habe ich in das Klassenmodul folgendes kopiert.
Private Sub objComboBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _
_
Single, ByVal Y As Single)
mobjOwner.myComboBox_MouseDown_Event objComboBox
End Sub
Das funktioniert leider nicht. Kann mir jemand sagen, wo mein Fehler ist.
Micha
Anzeige