ClassModule: Makro einfügen funzt nicht ?!
26.05.2004 11:36:26
ralle
Ich habe im Excel-FAQ ein Makro gefunden (Text-Index 154401), das ich gerne bei mir starten möchte. Nachfolgend das Makro:
Makro(1)
ClassModule:frmsheets
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_click()
Dim arr() As String
Dim irow As Integer, icounter As Integer
Dim spath As String
Application.ScreenUpdating = False
spath = Application.DefaultFilePath & "\"
For irow = 0 To lstsheets.ListCount - 1
If lstsheets.Selected(irow) Then
icounter = icounter + 1
ReDim Preserve arr(1 To counter)
arr(icounter) = Worksheets(istsheets.List(irow)).Name
End If
Next irow
Worksheets(arr).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs spath & "test.xls"
Application.DisplayAlerts = True
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
Unload Me
End Sub
Makro(2)
StandardModule: Modul1
Sub callForm()
frmsheets.Show
End Sub
Ich habe also in der Entwicklungsumgebung unter MODULE, MODULE einfügen, KLASSENMODUL gewählt und dort obiges Makro (1) eingefügt und ihm im Eigenschaftenfenster den Namen frmsheets gegeben.
Danach habe ich unter MADULE, MODULE einfügen; MODUL gewählt und dort das Makro(2) eingefügt.
Wenn ich das Makro nun starte bekomme ich immer eine Fehlermeldung und im Makro(2) wird mir die Zeile "frmsheet" gelb makiert!!
Was mache ich falsch?
Gruß
ralle