Private Sub SummeErmitteln()
'Summe der einzelnen Reparaturzeiten ermitteln und im Feld ReparaturzeitGesamt 
' eintragen
Dim i As Long
Dim Gesamt As Single
If GridBewertung.Caption = "" Then      'Prüfen ob einzelner Datensatz oder 
' mehrere Datensätze
With GridBewertung                      'angezeigt werden, denn wenn mehrere, 
' dann darf nicht mehr
For i = 1 To .Rows                      'summiert werden.
Gesamt = Gesamt + Val(Replace(.Text(i, 15), ",", ".")) 'es wird in diesem Falle 
' die Spalte 15
Next i                                                  'angesprochen bzw. 
' zusammengerechnet
GridBewertung.Recordset.Edit    'und es wird die Summe welche im Footer.text 
' steht kopiert
GridBewertung.Recordset.Fields(28) = CStr(Gesamt) 'und ins Recordset eingetragen
GridBewertung.Recordset.Update  'als nächstes wird ein Update des Grids 
' ausgeführt
GridBewertung.Recordset.Requery  'bei Problemen damit, einfach löschen
GridBewertung.Refresh
End With
Else
Exit Sub
End If
End Sub