Public Class Form1
 
    Dim exApp As Microsoft.Office.Interop.Excel.Application
    Dim exWorkbook As Microsoft.Office.Interop.Excel.Workbook
    Dim exWorksheet As Microsoft.Office.Interop.Excel.Worksheet
 
    Private Sub btnErstellen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnErstellen.Click
        exApp = CreateObject("Excel.Application")
        exWorkbook = exApp.Workbooks.Add
        exWorksheet = exWorkbook.ActiveSheet
        exWorksheet.Name = "Daten"
 
        With exApp
            .Visible = True
            .UserControl = True
            .ScreenUpdating = True
        End With
 
        btnErstellen.Enabled = False
        btnOeffnen.Enabled = False
        gpEingeben.Enabled = True
        btnHinzufuegen.Enabled = True
        btnSchliessen.Enabled = True
    End Sub
 
    Private Sub btnOeffnen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnOeffnen.Click
        OpenFileDialog.ShowDialog()
 
        exApp = CreateObject("Excel.Application")
        exWorkbook = exApp.Workbooks.Open(OpenFileDialog.FileName)
        exWorksheet = exWorkbook.ActiveSheet
 
        With exApp
            .Visible = True
            .UserControl = True
            .ScreenUpdating = True
        End With
 
        btnErstellen.Enabled = False
        btnOeffnen.Enabled = False
        gpEingeben.Enabled = True
        btnHinzufuegen.Enabled = True
        btnSchliessen.Enabled = True
    End Sub
 
 
    Private Sub btnHinzufuegen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnHinzufuegen.Click
        Try
            exWorksheet.Cells(CInt(boxZeile.Text), CInt(boxSpalte.Text)) = _
              boxInhalt.Text
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
    Private Sub btnSchliessen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnSchliessen.Click
        'exApp.DisplayAlerts = False
        exWorkbook.Close()
        exApp.Quit()
        btnErstellen.Enabled = True
        btnOeffnen.Enabled = True
        gpEingeben.Enabled = False
        btnHinzufuegen.Enabled = False
        btnSchliessen.Enabled = False
    End Sub
End Class