Intersect von einem Modul aus aufrufen

Ändern gewisse Zellen in eine Excel-Tabelle, führe ich mit folgendem VBA-Code eine Sub aus:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("B4:B1000")) Is Nothing _
Then Exit Sub
Sub_mit_Code_ausfuehren
End Sub

Das funktioniert aber nur, wenn dieser Sub im Code der entsprechenden Excel-Tabelle selber hinterlegt ist. Ist es irgendwie möglich, diesen Code in einem separaten Modul zu hinterlegen? Range("B4:B1000") einfach durch worksheets("name").Range(...) zu ersetzen funktioniert nicht.
Hintergrund: Ich stelle für Mitarbeiter ein Excelfile zur Verfügung, welches zusätzliche Funktionalitäten vom Server nachlädt. Damit kann ich jederzeit am Code arbeiten und beim nächsten Öffnen der Datei hat jeder Mitarbeiter den neuen Code zur Verfügung.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'in Tabellen-Klassenmodul Private Sub Worksheet_Change(ByVal Target As Excel.Range) Call TueWas(Target, "B4:B1000") End Sub 'im nornalen Modul Sub TueWas(xTarget As Range, xBereich As String) Dim yBereich As Range If xTarget.Cells.Count > 1 Then Exit Sub End If Set yBereich = xTarget.Parent.Range(xBereich) If Not (Application.Intersect(xTarget, yBereich) Is Nothing) Then Call Sub_mit_Code_ausfuehren End If Set yBereich = Nothing End Sub 'im nornalen Modul Sub Sub_mit_Code_ausfuehren() MsgBox "OK, ich habe was getan!" End Sub

Ich habe mich mal mit Google schlau gemacht zum Thema Klassenmodul und bin auf der Seite https://de.wikibooks.org/wiki/VBA_in_Excel/_Klassenmodule
auf die Lösung meines Problems gestossen!
Im Klassenmodul steht bei mir nun


Public WithEvents App As Application
Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Bei neuem Eintrag im Blatt "ZMG" in Spalte B (=2) die Verlinkung ausführen
If ActiveSheet.Name = "ZMG" And Target.Column = 2 Then
Link_Geschaeftsverwaltung_ZMG
End If
End Sub

Und im allgemeinen Modul:

Dim AppClass As New clsApp

sowie in einer Sub im allgemeinen Modul, die beim Öffnen der Datei ausgeführt wird:


Set AppClass.App = Application

Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Type = xlWorksheet Then 'Bei neuem Eintrag im Blatt "ZMG" in Spalte B (=2) die Verlinkung ausf?hren If Sh.Name = "ZMG" And Target.Column = 2 Then Link_Geschaeftsverwaltung_ZMG111 End If End If End Sub

Beliebteste Forumthreads (12 Monate)

Intersect von einem Modul aus aufrufen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread