________
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

    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