Private Sub Gesamtsumme()
With sevGrid2
        'zuerst sollte eine Leerzeile eingefügt werden, dies wird erreicht 
        ' durch einen
        'Blank im feld 16
    .Recordset.AddNew
    .Recordset.Fields(16) = " "
    .Recordset.Update
    .Refresh
End With
        'dann wird der Text Gesamtsumme ins erste Texfeld eingetragen und die 
        ' Summe
        'ermittelt und eingetragen
With sevGrid2
    .Recordset.AddNew
    .Recordset.Fields(13) = nSumme
    .Recordset.Fields(14) = " Gesamtsumme"
    .Recordset.Update
    .Refresh
End With
End Sub

Private Sub mnuExcel_Click()
Dim bCancel, Antwort As Integer
 
If sevGrid2.Rows > 0 Then
  ' nur anzeigen, falls Daten vorhanden
 
Gesamtsumme 'zuerst die Gesamtsumme ermitteln und eintragen
 
Antwort = MsgBox("Möchten Sie den Kostenvoranschlag jetzt erstellen" & vbCrLf & _
  vbCrLf & "Achtung:" & vbCrLf & _
        "Die erstellte Liste wird dadurch gelöscht!", vbOKCancel, "Frage:")
        Select Case Antwort
        Case vbCancel
        bCancel = 1
        MsgBox "Bitte löschen Sie die Zeile der Gesamtsumme, um den KV zu" & _
          "erweitern."
            Case vbOK
                bCancel = 0
            ExcelListe
            DeleteListe 'die Tabelle löschen und die Liste auf Null setzen
            txtSumme = ""
            nSumme = 0
            ShowFooter
         End Select
Else
MsgBox "Bitte zuerst einen KV erstellen", 48, "Info:"
End If
End Sub