Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Makroverzweigung im Change-Ereignis

Gruppe

Change

Problem

Eine Change-Ereignis soll in Abhängigkeit der aufrufenden Zelle auf verschiedene Makros verzweigen. Erster Bereich ist A1:B10, zweiter C1:D10.

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UsereForm ein.

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