Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> "$C$6" Then Exit Sub
   Run Target.Value
End Sub

StandardModule: Modul1

Sub A()
   MsgBox "Ich bin Makro A"
End Sub

Sub B()
   MsgBox "Ich bin Makro B"
End Sub

Sub C()
   MsgBox "Ich bin Makro C"
End Sub

Sub D()
   MsgBox "Ich bin Makro D"
End Sub

    

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