Dim i As Long
Dim aktuell As Double
Dim gesamt As Double
Dim bisher As Double
 
Dim nRow As Long
Dim nCol As Long
 
sevGrid5.Row = 1
sevGrid5.Columns(5).FooterText = "0"
bisher = sevGrid5.Columns(5).FooterText
aktuell = 0
aktuell = sevGrid5.SelectedItem.CellText(5)
 
'Stunden ermitteln
With sevGrid5
For i = 1 To .Rows
aktuell = sevGrid5.SelectedItem.CellText(5)
bisher = sevGrid5.Columns(5).FooterText
gesamt = bisher + aktuell
sevGrid5.Columns(5).FooterText = gesamt
Next i
End With