Gruppe
Allgemein
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