Worksheet_Change in Modul auslagern
21.05.2020 13:11:55
Kulo
ich habe eine Arbeitsmappe mit vielen identischen Tabellenblättern für verschiedene Zeiträume angelegt.
Auf jedem Tabellenblatt wird bei einer Änderung in einem bestimmten Bereich ein Kommentar an die aktive Zelle angehängt, bearbeitet oder gelöscht.
Jetzt habe ich den erfordelichen Code unter jedes einzelne Tabellenblatt gelegt.
Bei einer Änderung des Codes muss ich diese Änderung in jedem Blatt einzeln vornehmen, was ich vereinfachen möchte.
So, wie ich ein Makro mit "call" aufrufen kann, funktioniert es aber nicht.
Wie kann ich es bewerkstelligen, dass ich den Großteil des Codes z.B. in ein Modul auslagere und von jedem Tabellenblatt bei einer Änderung im relevanten Bereich auf diesen Code zugreife?
In ungefähr so:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B14:M18")) Is Nothing Then
mach genau das, was du auch auf Tabelle1 gemacht hättest
End If
End Sub
Ich würdemich sehr freuen, wenn mir da jemand weiterhelfen würde.
Viele Grüße
Kulo