AW: Add-In Funktionen für alle Excel-Dateien
11.05.2004 12:57:35
Russi
Hallo Hartmut!
Dafür sind mehrere "Einzelteile" notwendig:
1. in DieseArbeitsmappe
Dim AppObject As New DateiÄnderung ' Für Klassenmodul DateiÄnderung
Private Sub Workbook_Open()
Set AppObject.App = Application ' Für Klassenmodul DateiÄnderung
End Sub
2. in ein Klassenmodul Namens "DateiÄnderung"
Public WithEvents App As Application
Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
msgbox "Markierung wurde verändert!!!"
End Sub
' oder auch so:
Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
MsgBox "Das Blatt wurde verändert!"
End Sub
Viele Grüße
Russi
www.Russi.de.tt