Excel und VBA - Die Excel-FAQ

Prüfung, ob die Zwischenablage leer ist

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Prüfung, ob die Zwischenablage leer ist

Problem: Es soll überprüft werden, ob die Zwischenablage leer ist.

StandardModule: Modul1

Sub TestClipBoard()
   Dim bln As Boolean
   If bln Then
      MsgBox "Die Zwischenablage ist leer!"
   Else
      MsgBox "Die Zwischenablage ist nicht leer!"
   End If
End Sub

Private Function ClipboardEmpty() As Boolean
    ClipboardEmpty = (Application.ClipboardFormats(1) = -1)
End Function