Hallo,
Aus einem AddInn heraus werden bestimmte Zellen, auf verschiedenen Blättern einer Arbeitsmappe überwacht. Das hat nach längerem Probieren mit Hilfe eines Klassenmoduls geklappt.
Hier die Teile des Codes:
Dim kls As New Klasse1
Sub auto_Open()
Set kls.xlApp = Application
End Sub
---------------------------------------------------------
Public WithEvents xlApp As Excel.Application
Private Sub xlApp_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim bereich As Range
'=== BAS ===
If Sh.name = "BAS" Then
Set bereich = Range("A7")
If Not Intersect(Target, bereich) Is Nothing Then
MsgBox "BAS / BCF"
End If
End If
End Sub
Nun aber folgendes Problem: die Überwachung erstreckt sich derzeit auf alle geöffneten Arbeitsmappen, soll sich aber nur auf die Arbeitsmappe xy beschränken, die die zu überwachenden Blätter enthält! Leider ist mir nicht klar wie ich das nun umsetzen müsste.
Würde mich sehr freuen, falls sich jemand findet der mir weiterhelfen kann!
LG Lena
|