Excel formuleresultaat als tekst naar klembord?

[SOLIDD]

Goedemiddag,

Kort gezegd: Het programma waarin we moeten plakken herkent geen tekst uit een gekopieerde cel en we zouden dit graag zo simpel mogelijk willen maken


Iets meer uitleg:

Misschien zijn er andere opties, maar is het mogelijk om een formuleresultaat als tekst te kopiëren naar het klembord?
Uiteraard kun je dit selecteren en "speciaal plakken", maar dit is een omweg.

We hebben het wel voor elkaar gekregen deze in een nieuwe cel te plakken via een macro die bovenstaande uitvoert.

Echter willen de tekst uiteindelijk plakken in een softwareprogramma (Revit) maar dit programma herkent de tekst niet als je de cel selecteert en hiervandaan kopieert.
We moeten dus alsnog "he-le-maal" de cel selecteren en bovenin (waar normaal de formule staat) de tekst selecteren en kopiëren.
Omdat deze handeling regelmatig voor zal komen zouden we dit graag versimpelen voor meedere gebruikers.



Alvast bedankt voor de hulp!

 

[edmoor]

Wellicht dat je dit kan gebruiken.
Gebruik Klembord vanuit VBA:

[COLOR="#008000"]'Gebruikt MSForms Object Library 2.0[/COLOR]
Public Clipboard As New MSForms.DataObject

Function LeesKlembord()
    Dim DataObj As New MSForms.DataObject
    DataObj.GetFromClipboard
    
    On Local Error Resume Next
    LeesKlembord = DataObj.GetText
    On Local Error GoTo 0
End Function

Sub SchrijfKlembord(Tekst As String)
    Dim DataObj As New MSForms.DataObject
    On Local Error Resume Next
    DataObj.SetText Tekst
    DataObj.PutInClipboard
    On Local Error GoTo 0
End Sub

Na een schrijfopdracht naar het Klembord kan dan met Ctrl-V overal worden geplakt.