AW: Makro
26.09.2006 09:35:05
Rolf
Hallo Rebecca,
leg eine Arbeitsmappe an, die bei jedem Excelstart geöffnet wird.
Dort fügst diese Module/Codes ein
' **************************************************************
' Modul: DieseArbeitsmappe Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit
'Open-Ereignis der Arbeitsmappe
Private Sub Workbook_Open()
Call Initialize_myApplicationClass
End Sub
' **************************************************************
' Modul: EventClassApplication Typ = Klassenmodul
' **************************************************************
Option Explicit
'Klassenmodul für Application-Ereignisse
'Definition der Klasse
Public WithEvents myApplicationClass As Application
'WorkbookSave-Ereignis
Private Sub myApplicationClass_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
Call mymacro
MsgBox "An den Druckbereich denken"
End If
End Sub
' **************************************************************
' Modul: Modul1 Typ = Allgemeines Modul
' **************************************************************
Option Explicit
Public myApplicationModule As New EventClassApplication
'Application-Ereignis mit Application-Modul verbinden
Sub Initialize_myApplicationClass()
Set myApplicationModule.myApplicationClass = Application
End Sub
Sub mymacro()
MsgBox "Achtung: neue Arbeitsmappe wird gespeichert"
End Sub
Mit Klassenmodulen sollte man allerdings eigentlich erst arbeiten,
wenn man VBA einigermaßen kann - sonst kriegt man's meist nicht hin.
fG
Rolf
Rückmeldung nicht (wieder) vergessen