VBA in Word - Zugriff auf Formularelemente

[CHaos.Gentle]

Hi,

ich habe meinen Ausbildungsnachweis ein wenig gepimpt...

Nun werden die Zeiten, die ich an bestimmten Aufgaben gesessen habe automatisch addiert und die Gesamtzeit ausgegeben. Leider scrollt Word immer wild im Dokument rum.

Gibts ne Möglichkeit dieses Scrollen zu deaktivieren?!

Vllt hat auch noch jemand ne Möglichkeit meinen Code anderweitig zu verbessern, um ihn ein wenig schneller zu machen... ^^

Sub Montag()
    Dim erg As Double
    Dim i As Integer
    Application.ScreenUpdating = False
    erg = 0
    For i = 7 To 17 Step 2
        If Len(ActiveDocument.FormFields(i).Result) > 0 Then
            erg = erg + CDbl(ActiveDocument.FormFields(i).Result)
        End If
    Next i
    ActiveDocument.FormFields(18).Result = erg
    Gesamt
    Application.ScreenUpdating = True
End Sub

CHaos.Grüße