Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change