• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

VBA copy to clipboard

Status
Niet open voor verdere reacties.
H

H3ndrik

Gebruiker
Lid geworden
8 mei 2012
Berichten
30
Goedemiddag,

Ik wil graag met onderstaande stukje code een deel uit een excel-blad kopiëren, vervolgens het bestand laten opslaan en sluiten.

Range("B2:G" & R).Copy
Range("A1:J" & R).ClearContents
ThisWorkbook.Save
ThisWorkbook.Close

Daarna (dus na het sluiten van excel) wil ik graag het gekopieerde plakken in een ander bestand. Het probleem is echter dat het klembord dan leeg is. Ik heb al wat geprobeerd met Application.CutCopyMode = False / True, maar dat lijkt niet te werken.

Wie kan mij helpen?

Alvast bedankt
 
Kijk eens naar dit:
Code: 
[COLOR="#008000"]'Gebruikt: MSForms Object Library 2.0[/COLOR]
Public Clipboard As New MSForms.DataObject

[COLOR="#008000"]'Lees van ClipBoard[/COLOR]
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

[COLOR="#008000"]'Schrijf naar ClipBoard[/COLOR]
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
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan