Wie kann ich ein Excel Worksheet so aus Vb.net überwachen, dass die Ereignis Prozedur "Change" eintritt, wenn sich etwas in dem Worksheet ändert? Ich habe es schon so probiert:
Dim x1app As Excel.Application
Dim x1book As Excel.Workbook
Dim WithEvents x1sheet As Excel.Worksheet
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
x1app = CreateObject("Excel.application")
x1book = x1app.Workbooks.Open("C:\Programme\Noten\Notenleer.xls")
x1sheet = x1book.Worksheets(1)
x1book.Worksheets(1).Application.visible = True
End sub
Private Sub x1sheet_Change(ByVal Target As Excel.Range)Handles x1sheet.Change
MsgBox("Test")
End Sub
Wenn ich es so probiere, kommt bei "x1sheet = x1book.Worksheets(1)" der Fehler, dass die Schnittstelle nicht unterstüzt wird. Kann mir jemand sagen ,was ich falsch gemacht habe, oder ob es eine andere möglichkeit gibt? Danke im voraus: Jacker
Registrieren
Login
