[MS Access] Listenfeld – Einen Eintrag in die Zwischenablage kopieren

' Listenfeld1 - Listenfeld mit Inhalt 
' txtHidden - Verstecktes Hilfsfeld auf dem Formular für Text zum kopieren 

Private Sub btnCopy_Click() 
    Listenfeld1.SetFocus 
    
    ' Wert aus Spalte 1 [0..n] holen und an verstecktes Textfeld übergeben 
    txtHidden = Listenfeld1.Column(1) 
    txtHidden.SetFocus
    
    ' Inhalt des versteckten Feldes selektieren 
    txtHidden.SelStart = 0 
    txtHidden.SelLength = Len(txtHidden) 
    
    ' Inhalt in die Zwischenablage kopieren 
    DoCmd.RunCommand acCmdCopy 
End Sub