Hallo! Also wenn beim Ja Fall die Nachricht nicht kommt, ist das ein Zeichen, dass das select nicht passt ( wobei es gut aussieht) Dadurch wird deine Variable bvar nicht true und somit zu 0, was einem anfügen entspricht. Ersetze mal die Prozedur Filesave durch das hier. Habe an statt der Variablen die Werte genommen und einen Fehlercase. Der ist dann wie abbrechen. Damit kommt man dem Problem   ggf. auf die Spur. Zur genauen Analyse ggf. im FileSave Code mal mit F9 eine Halpunkt setzen und dann den Code ausführen. Er geht dann nur bis zu der Stelle. Ab da dann mal mit F8 schrittweise duchgehen und schauen wie sich de Code verhält.

Bei der Aktualisierungsub kann ich jetzt nichts sagen. Da müsste man ggf. den Seitenaufbau sehen. Sollte aber so auf die schnelle passen.  VG

Sub FileSave()
    Dim oDoc As Document
    Dim oVar As Variable
    Dim bVar As Boolean
    Dim lngID As Long
    Dim lngAsk As Long
    Dim vbCancel As Boolean, vbNo As Boolean, vbYes As Boolean
    Set oDoc = ActiveDocument
    If Checkfields = True Then
        If oDoc.Path = "" Then
            FileSaveAs
        End If
        For Each oVar In oDoc.Variables
            If oVar.Name = "varID" Then
                lngAsk = MsgBox("Das Prüfprotokoll wurde bereits in die Geräteliste exportiert." & vbCr & _
                "Wurden Daten im Protokoll geändert, kann der Eintrag in der Geräteliste aktualisiert werden!" & vbCr & _
                vbCr & _
                "Wähle 'Ja' um den Eintrag zu aktualisieren!" & vbCr & _
                "Wähle 'Nein' um das Dokument ohne aktualisierung zu speichern!" & vbCr & _
                "Wähle 'Abbrechen' um den Vorgang zu beenden!", vbYesNoCancel)
                Select Case lngAsk
                Case 6 'vbYes
                    MsgBox ("Daten werden überschrieben")
                    lngID = oVar.Value
                    bVar = True
                    Exit For
                Case 7 'vbNo
                    MsgBox ("Dokument gespeichert")
                    bVar = False
                    Exit For
                Case 2 'vbCancel
                    MsgBox ("Speichervorgang abgebrochen!")
                    GoTo lbl_Exit
                Case Else
                    MsgBox "es ist etwas schief gelaufen"
                    GoTo lbl_Exit
                End Select
            End If
        Next oVar
        If Not bVar Then
            oDoc.Variables("varID").Value = "0"
            oDoc.Save
        End If
        DataTransfer CStr(lngID)
        If Not oDoc.Saved Then oDoc.Save
    End If
lbl_Exit:
    Exit Sub
End Sub