Hi Siegi,
Super geht, hab es mit einer Meldung noch modifiziert.
Sub Querypaste(Source As Notesuiview, Continue As Variant)
'Start Pyanowski 2002-04-25
Msgbox "Dokument über ->Aktion -> Bearbeiten -> Duplizieren erstellen ",48,"Fehler: Kopieren/Einfügen nicht möglich"
Continue = False
Exit Sub
'End Pyanowski
End Sub
Gruss
Bubble