Hej hej

Nedan kod kopierar ett markerat område till ditt både office clipboard och windows clipboard. Du måste alltså först markera ett område och därefter köra koden. Vidare så har jag slöat ned koden med application.wait, en sekund för varje anrop. Du kan mixtra med sekunden för att få den att gå snabbare, men kör du den för snabbt så hinner inte clipboarden med. "Function clipboard" hittade jag här:

https://www.thespreadsheetguru.com/blog/2015/1/13/how-to-use-vba-code-to-copy-text-to-the-clipboard

Sub sendtoclipboard()

    Dim rng As Range

    For Each rng In Selection        

        waitTime = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)

        Application.Wait waitTime

        DoEvents

        Call Clipboard(rng.Value2)

        DoEvents        

    Next rng

End Sub

Function Clipboard(Optional StoreText As String) As String

'PURPOSE: Read/Write to Clipboard

'Source: ExcelHero.com (Daniel Ferry)

Dim x As Variant

'Store as variant for 64-bit VBA support

  x = StoreText

'Create HTMLFile Object

  With CreateObject("htmlfile")

    With .parentWindow.clipboardData

      Select Case True

        Case Len(StoreText)

          'Write to the clipboard

            .setData "text", x

      End Select

    End With

  End With

End Function