Gruppe
Ereignis
Problem
Eine Change-Ereignis soll in Abhängigkeit der aufrufenden Zelle auf verschiedene Makros verzweigen. Erster Bereich ist A1:B10, zweiter C1:D10.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
Call ErsteRoutine
ElseIf Not Intersect(Target, Range("C1:D10")) Is Nothing Then
Call ZweiteRoutine
End If
End Sub
Sub ErsteRoutine()
MsgBox "Aufruf aus dem Bereich A1:B10!"
End Sub
Sub ZweiteRoutine()
MsgBox "Aufruf aus dem Bereich C1:D10!"
End Sub