Sub Zwischenablage()
    Dim myNotiz As New Notiz
 
    With myNotiz
         .Name = "Notiz1"
         .Notizbuch_ID = 1
    End With
 
    Call Notiz_in_Zwischenablage(myNotiz)
 
    myNotiz = Notiz_aus_Zwischenablage
 
    'Hier kommt der Fehler
    MsgBox(myNotiz.Name)
End Sub
 
Sub Notiz_in_Zwischenablage(myNotiz As Notiz)
    Clipboard.SetData("Notiz", myNotiz)
End Sub
 
Function Notiz_aus_Zwischenablage() As Notiz
    If Clipboard.ContainsData("Notiz") Then
        Dim myNotiz As New Notiz
 
        myNotiz = Clipboard.GetData("Notiz")
 
        Return myNotiz
    End If
End Function