Prüfung, ob die Zwischenablage leer ist

Thema: Allgemein - Gruppe Ansicht

Arbeitsmappe

232204    171902

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