Tag,

schreibe gerade ein Makro das ihr unten sehn könnt. Dieses soll einfach nur, nach dem klicken auf eine Checkbox einen Text in eine Textmarke einfügen.... Das klappt nur bedingt. Also wenn ich das Makro direckt ausführe funktioniert es. Wenn ich jedoch auf die besagte checkbox klicke passiert nichts.... warum?

Hier mein Code:

Code:

Sub WriteInBookmark(ByVal sBookmarkName As String, _

                    ByVal sBookmarkText As String)

    'Schreibt einen neuen Wert in ein vorhandenes Bookmark

    If ActiveDocument.Bookmarks.Exists(sBookmarkName) Then

        Dim r As Range

        Set r = ActiveDocument.Bookmarks(sBookmarkName).Range

        r.Text = sBookmarkText

        ActiveDocument.Bookmarks.Add sBookmarkName, r

    End If

End Sub


Sub Summe()

With ActiveDocument


 If ActiveDocument.Bookmarks.Exists("Kontrollkästchen1") = True Then

        ActiveDocument.Bookmarks("Kostenmon").Range.Text = "Neuer Text"


 Else

        MsgBox ("Textmarke Kontrollkästchen1 nicht vorhanden")



End If

Bitte helft mir^^

Verschoben -> Basic