Bin für jeden Hinweis dankbar.
Sub Postopen(Source As Notesuidocument) Dim containerDoc As NotesDocument Dim thisDoc As NotesDocument Dim uiws As New NotesUIWorkspace Set containerDoc = uiws.CurrentDocument.Document Set thisDoc = source.Document ' is doc displayed in an embedded editor? If containerDoc.UniversalID <> thisDoc.UniversalID Then containerDoc.ProduktIDEingabe = thisDoc.ProduktID containerDoc.ProduktNameEingabe = thisDoc.ProduktName containerDoc.ProduktHierarchischerNameEingabe = _ thisDoc.ProduktHierarchischerName End If End Sub