Private WithEvents ws As Excel.Worksheet
 
    Private Sub ws_SelectionChange(Target As _
      Microsoft.Office.Interop.Excel.Range) Handles ws.SelectionChange
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        ' WorkBook öffnen...
 
        ws = CType(wb.ActiveSheet, Excel.Worksheet)
 
    End Sub

    Private Sub ws_SelectionChange(Target As _
      Microsoft.Office.Interop.Excel.Range) 
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        ' WorkBook öffnen...
 
        Dim ws As Excel.Worksheet = CType(wb.ActiveSheet, Excel.Worksheet)
 
        AddHandler ws.SelectionChange, AddressOf ws_SelectionChange
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist