Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: Tabelle1

Private Sub Worksheet_Calculate()
   If ActiveSheet.Name <> Me.Name Then Exit Sub
   If Intersect(Range("A1:A10"), ActiveCell) Is Nothing Then Exit Sub
   MsgBox "Auswahl: " & ActiveCell.Value
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Feature und Gültigkeit