Dim i As Long
Dim nSumme As Currency
Dim nSelCount As Long
 
With Grid1
  nSelCount = .SelCount
  For i = 0 To nSelCount - 1
    nSumme = nSumme + .CCur(.Text(.SelRow(i), "betrag"))
  Next i
 
  .Columns("betrag").FooterText = FormatCurrency(nSumme)
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de