Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel
Imports Microsoft.Office.Core
 
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim ExcelDateiName As String = "C:\Klassifizierung.xlsx"
        Dim ExcelTabelleName As String = "List_Klass"
        Dim xls_Appl As Excel.Application
        Dim xls_Mappe As Excel.Workbook
        Dim xls_Blatt As Excel.Worksheet
        xls_Appl = New Excel.Application
        xls_Appl.Visible = True
        xls_Mappe = xls_Appl.Workbooks.Open(ExcelDateiName)
        xls_Blatt = xls_Mappe.Worksheets(ExcelTabelleName)
        xls_Blatt.Activate()
 
        'Letze Zeile finden - erster Lösungsansatz
 
        For zeile = 0 To 2000
            If xls_Mappe.Worksheets("List_Klass").Cells(zeile, -1).Value = "" _
              Then DasIstDieLeereZeile = zeile : Exit For
            '---> Ab If kommt folgende Fehlermeldung: COMException wurde 
            ' nicht behandelt - "Ausnahme von HRESULT: 0x800A03EC"
        Next zeile
 
        'Datenübertrag
        xls_Blatt.Range("A1").Value = TextBox1.Text 'So funktioniert es, leider 
        ' wird bei einem erneuten Eintrag immer wieder A1 überschrieben
 
        'Form leeren
        TextBox1.Text = ""
 
        'Speichern
        xls_Mappe.Save()
 
        'Schliessen
        xls_Appl.Quit()
 
    End Sub
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
        If MsgBox("Programm wirklich beenden?", MsgBoxStyle.YesNo, Me.Text) = _
          MsgBoxResult.No Then
 
            Exit Sub
 
        End If
 
        Me.Close()
 
    End Sub
End Class