Office 2016 Kopieren eines Makros von Word nach Excel

[Hobbes1980]

Hallo zusammen,

ich habe ein einer Word Datei ein funktionierendes Makro welches bei Doppelklick auf ein bestimmtes Feld (es handelt sich um ein Materialeinführungsantrag wo verschiedene Leute unterschreiben müssen. In Summe sind in dem Antrag 12 dieser Unterschriftsfelder) digital unterschreibt. Und zwar mit dem Namen mit welchem man am Windows PC eingeloggt ist.
Der Code sieht so aus:

Sub bestaetigen()
Dim zeilenNummer As Integer

With ActiveDocument
    'Dokumentschutz temporär aufheben
    If .ProtectionType <> wdNoProtection Then .Unprotect
   
    'Zeilennummer merken, in der der angeklickte Button steht
    zeilenNummer = Selection.Information(wdEndOfRangeRowNumber)
   
    'Username und  Datum eintragen
    Selection = Environ("Username")
    Selection.Tables(1).Cell(zeilenNummer, 2).Range.Text = Format(, "dd.MM.yyyy")
   
    'Dokumentschutz wieder setzen
    If .ProtectionType = wdNoProtection Then
       
    End If
           
End With
End Sub


Private Sub SpinButton1_Change()
a
b
c
d
E
f
g
End Sub


Genau dieses Unterschriftsmakro benötige ich nun in einer Word Datei. Einfach den Code kopieren klappt leider nicht.

Könntet Ihr mir bitte weiterhelfen?

LG
Markus

Der Beitrag in einem anderen Forum: http://www.office-loesung.de/p/viewtopic.php?f=166&t=765587&p=3139124#p3139124

[maninweb]

Hallo,

ich lasse den Beitrag mal hier drin, mit dem Verweis, dass sich jetzt in dem anderem Forum - siehe Dein Link - drum gekümmert wird. Ist ok so.

Gruß