Excel-VBA – Zwischenablage löschen

Excel-VBA – Zwischenablage löschen

Das Löschen der Zwischenablage in Excel-VBA erfordert nur eine einzige Codezeile:

Application.CutCopyMode = False

Dies unterscheidet sich jedoch von der Standard-Windows-Zwischenablage. Um die Windows-Zwischenablage zu löschen, können Sie die Funktion EmptyClipboard verwenden. Kopieren Sie den folgenden Code, fügen Sie ihn in ein Codemodul ein und führen Sie Sub ZwischenablageLoeschenTest aus, um die Windows-Zwischenablage zu löschen.

Option Explicit

Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EmptyClipboard Lib "user32" () As Long
Public Declare Function CloseClipboard Lib "user32" () As Long

Public Function ZwischenablageLoeschen()
  OpenClipboard (0&)
  EmptyClipboard
  CloseClipboard
End Function

Sub ZwischenablageLoeschenTest()
  Call ZwischenablageLoeschen
End Sub