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