Hallo "Gast"

hier der ganze Code:

Public Sub Main()
    ABFRAGE
    Do Until MsgBox("Neuen Zahlschein erstellen?", vbYesNo, "Restart?") = vbNo
    ABFRAGE
    Loop
    ActiveDocument.Application.Quit savechanges:=False
End Sub

Public Sub ABFRAGE()
IBox1 = InputBox("Betrag:")
IBox1 = Format(IBox1, "##,##0.00")
ReSetBookmark "Betrag", IBox1
ReSetBookmark "Betrag1", IBox1
IBox2 = InputBox("Rechnungs-Nr:")
ReSetBookmark "RENr", IBox2
ReSetBookmark "RENr1", IBox2
'Dialogs(wdDialogFilePrint).Show
'Set IBox1 = Nothing
'Set IBox2 = Nothing
End Sub

Function ReSetBookmark(ByVal TMName As String, ByVal TMInhalt As String)
'Recycling-Textmarke mit ?bernommenen Werten, geht f?r alle Textmarken
 
    Dim bm As Bookmark
    Dim rng As Range
 
    If ActiveDocument.Bookmarks.Exists(TMName) Then
        Set bm = ActiveDocument.Bookmarks(TMName)
        Set rng = bm.Range
        rng.Text = TMInhalt
        ActiveDocument.Bookmarks.Add Name:=TMName, Range:=rng
    End If
     
    Set rng = Nothing
    Set bm = Nothing
End Function

Ich hatte zuerst den Loop in Verdacht, nachdem ich den ausgeschlossen habe habe ich ihn auch nicht mitgepostet.

Habs jetzt eben nochmal an einem anderen PC probiert, auch hier das selbe.
Ich vermute das letzte Update dürfte einen Bug haben - wie die anderen vorher auch.
Mit jedem Update kommt irgendwas was nervt (seit dem vorigen Update dauert die Druckerkommunikation ewig und sowohl Word als auch Excel blockieren bis die Kommunikation abgeschlossen ist, heuer im Frühjahr war Excel verbuggt - man durfte keine zweite Instanz öffnen sonst wurden die Schriftarten einfach so geändert...)

Bei mir betrifft es jedenfalls Office Pro 2013 mit Word in der Version 15.0.5172.1000.