Thema: Die Ereignisse Zellauswahl, Eingabe und Doppelklick

ClassModule: Tabelle12

Private Sub Worksheet_SelectionChange( _
   ByVal Target As Excel.Range)
   If Target.Address = "$B$1" Then
      MsgBox "Bin jetzt in Zelle " & Target.Address
   End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   If Target.Address = "$B$2" Then
      MsgBox "Sie haben den Wert '" & Target.Value & "' eingegeben!"
   End If
End Sub

Private Sub Worksheet_BeforeDoubleClick( _
   ByVal Target As Excel.Range, Cancel As Boolean)
   Cancel = True
   If Target.Address = "$B$3" Then
      MsgBox "Sie befinden sich in Zelle " & Target.Address
   End If
End Sub

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