Hallo!

Ich dachte bei Nein soll er anfügen, bei Ja ersetzen und sonst halt abbrechen. Wenn bei nein nur speichern geschehen soll, dann so. Jetzt wird nur bei ja was in dem Dokument gemacht. Bei nein erfolgt nur ein speichern. Wenn das klappt, kann man sich dem anderen Problem annehmen.

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
       else
          'nur speichern
            DataTransfer CStr(lngID)
       end if
        If Not oDoc.Saved Then oDoc.Save
    End If
lbl_Exit:
    Exit Sub
End Sub