Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Makroaufruf abhängig vom Zellwert

Gruppe

Change

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