Private Sub Command1_Click()
Private DB As Database
Private Rs As Recordset
 
  Set DB = DBEngine.OpenDatabase("c:\clearmap.xls", False, False, "Excel 8.0;")
  Set Rs = DB.OpenRecordset("Daten$", dbOpenDynaset)
 
   Rs.Edit
   Rs!U = 316
   RS.MoveNext
   Rs!U = 315
   Rs.Update
   DB.Close
   MsgBox "Fertig"
 
End Sub

---------------------------------------------------------------------------------------------------------------
Wissen ist Macht, aber nichts wissen macht nichts!