Dim dbconnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=" & path & ";Extended Properties=""Excel 8.0;HDR=YES;"";"
 
        Dim dbconn As New OleDbConnection(dbconnString)
        Dim excelData As New DataSet("ExcelData")
        Dim dbAdapter As New OleDbDataAdapter("select * from [Tabelle1$]", _
          dbconn)
 
        dbAdapter.Fill(excelData, "Tabelle1")
 
        Dim DT As DataTable = excelData.Tables("Tabelle1")
 
        For Each row As DataRow In DT.Rows
            row.BeginEdit()
            row("Col2") = 7
            row.EndEdit()
        Next row
 
        DataGridView1.DataSource = DT
 
        Dim updateSql As String = "Update [Tabelle1$] Set Col2=?, Col3=? Where " & _
          " Col1=?"
        Dim updateCmd As New OleDbCommand(updateSql, dbconn)
        updateCmd.Parameters.Add("P1", OleDbType.Double, 8, "Col2")
        updateCmd.Parameters.Add("P2", OleDbType.Double, 8, "Col3")
        updateCmd.Parameters.Add("P3", OleDbType.VarChar, 32, "Col1")
 
        dbAdapter.UpdateCommand = updateCmd
 
        dbAdapter.Update(excelData, "Tabelle1")

________
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