Hallo! Bin mir nicht sicher wie sich das delte auf die Variable auswirkt (löschen bzw. leeren). Würd deshalb eher an Stelle von delete ein = "" bevorzugen.

Die Schleifen unten hätte ich so probiert. 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, weiter 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("Die Daten dieses Protokolls wurden bereits in die Geräteliste übertragen." & vbCr & _
                "Wurden Daten im Protokoll geändert, kann der Eintrag in der Geräteliste aktualisiert werden!" & vbCr & _
                vbCr & _
                "• Wähle 'Ja' um den vorhandenen Eintrag zu aktualisieren!" & vbCr & _
                "• Wähle 'Nein' um das Dokument ohne Datenübertragung zu speichern!" & vbCr & _
                "• Wähle 'Abbrechen' um den Vorgang zu beenden!", vbYesNoCancel)
                weiter = True
            Else
                If oVar.Name = "" Then ' Ich habe hier lediglich ein zweites If Statement eingebaut aber das funktioniert leider nicht.
                lngAsk = MsgBox("Die Daten dieses Protokolls wurden noch nicht in die Geräteliste übertragen!" & vbCr & _
                "Es besteht die Möglichkeit dies zu tun oder das Dokument ohne Datenübertragung zu speichern." & vbCr & _
                vbCr & _
                "• Wähle 'Ja' um die Daten in die Geräteliste zu übertragen!" & vbCr & _
                "• Wähle 'Nein' um das Dokument ohne Datenübertragung zu speichern!" & vbCr & _
                "• Wähle 'Abbrechen' um den Vorgang zu beenden!", vbYesNoCancel)
                weiter = True
                Else
                    weiter = false
                End If
            End If
            If weiter = True Then
                Select Case lngAsk
                Case 6 'vbYes
                    MsgBox ("Die Daten werden jetzt überschrieben und das Dokument gespeichert!")
                    lngID = oVar.Value
                    bVar = True
                    Exit For
                Case 7 'vbNo
                    MsgBox ("Das Dokument wird ohne Datenübertragung gespeichert!")
                    bVar = False
                    Exit For
                Case 2 'vbCancel
                    MsgBox ("Speichervorgang wird 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