Thema: Prüfung, 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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Ansicht