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
End Sub
Function ReSetBookmark(ByVal TMName As String, ByVal TMInhalt As String)
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...)