Probleme mit Klasse
08.01.2009 11:30:00
Specke
ich habe auf einem Tabellenblatt mehrere Commandbuttons und will diese einer Klasse zuordnen. Leider bekomme ich das nicht hin. in der "fetten" Zeile bekomme ich den Fehler 'Typen unverträglich'.
In DieseArbeitsmappe habe ich folgendes stehen:
Option Explicit
Dim i As Integer
Dim CommandButton() As New cls_CmdButton
Dim ObCB As Object
Private Sub Workbook_Open()
'Buttons in Klasse aufnehmen
For Each ObCB In Worksheets(1).Shapes
If ObCB.Name Like "CommandButton*" Then
i = i + 1
ReDim Preserve CommandButton(1 To i)
Set CommandButton(i).Button = ObCB
End If
Next ObCB
End Sub
Im Klassenmodul cls_CmdButton steht bisher:
Option Explicit
Public WithEvents Button As MsForms.CommandButton
Private Sub Button_Click()
MsgBox Button.Caption
End Sub
Wo ist mein Fehler?
Danke und Gruß
Specke
Anzeige