Gruppe
Ereignis
Bereich
Change
Thema
Makroaufruf abhängig vom Zellwert
Problem
Wie kann ich bei XL8 in Abhängigkeit vom Zellwert der Eingabezelle ein bestimmtes Makro aufrufen?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$A$1" Then Exit Sub
If IsNumeric(Target) = False Then Exit Sub
Select Case Target
Case 1: Call Macro1
Case 2: Call Macro2
End Select
End Sub
Sub Macro1()
MsgBox "Ich bin Makro1"
End Sub
Sub Macro2()
MsgBox "Ich bin Makro2"
End Sub