Hallo,
ich möchte folgenden Code:
'Range("cc2").Select
If Len(getClipboard) Then
If Application.CutCopyMode = 1 Then
Selection.PasteSpecial xlValues
Else
ActiveSheet.Paste
End If
Else
usw.
auf diese Art ausführen:
Zwischeablage.Copy ThisWorkbook.Worksheets("Lehrbericht").Range("cc2")
Selection.PasteSpecial xlValues und ActiveSheet.Paste
sollten sich dabei einfügen lassen.
Ist so etwas überhaupt möglich?
Danke für eure Hilfe.
Gruß
Karsten