Dim i As Long
Dim nSelCount As Long
Dim nRow As Long
Dim nTopRow As Long
 
With Grid1
  ' Anzahl der selektierten Einträge
  nSelCount = .SelCount
  nTopRow = .TopRow
  .LockUpdate True
 
  ' alle selektierten Einträge durchlaufen
  For i = 0 To nSelCount - 1
    ' Index der selektierten Datenzeile
    nRow = .SelRow(i)
 
    With .Recordset
      .MoveFirst
      If nRow > 1 Then .Move = nRow - 1
      .Fields("Lieferant") = "5"
      .Update      
    End With
  Next i
 
  .TopRow = nTopRow
  .LockUpdate False
  .Refresh
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de