ClipBoard.clear oder so

Computer: Software & Programmierung Office Software
1

Hallo in Excel kopiere ich was z.B.:

Sheets(„Hund“).Range(„A1:XX10000“).Select
Selection.Copy

Sheets(„Katze“).Range(„A1“).Select
ActiveSheet.Paste

Workbooks(„Maus“).Close

Beim Close bekomme ich die Meldung das ich viele in der Zwischenablage habe - wie lösche ich diese ?

2

Hallo SAM

Beim Close bekomme ich die Meldung das ich viele in der
Zwischenablage habe - wie lösche ich diese ?

Ich weiss nicht, ob’s dafür spezielle Befehle gibt, aber evtl. kannst du dir dadurch helfen, in dem du vor dem „Close“ nochmal irgendeine leere Zelle kopierst (ohne diese dann irgendwo einzufügen). Dann müsste die „Zwischenablage“ zumindest so wenig gefüllt sein, dass diese blöde Frage nicht mehr kommt.

Gruss
Peter

3

Sheets(„Hund“).Range(„A1:XX10000“).Select
Selection.Copy
Sheets(„Katze“).Range(„A1“).Select
ActiveSheet.Paste
Workbooks(„Maus“).Close
Beim Close bekomme ich die Meldung das ich viele in der
Zwischenablage habe - wie lösche ich diese ?

Hi Sam,
probier mal vor dem close:
Application.CutCopyMode = False
oder schau mal nach dem Befehl: PutInClipboard
oder probier das da:

Private Declare Function openclipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function emptyclipboard Lib "user32" () As Long
Private Declare Function closeclipboard Lib "user32" () As Long

Sub ZwischenablageLeeren()
If openclipboard(0&amp:wink: 0 Then
 Call emptyclipboard
 Call closeclipboard
End If
End Sub

Gruß
Reinhard