Gruppe
Allgemein
Bereich
Ansicht
Thema
Prüfung, ob die Zwischenablage leer ist
Problem
Es soll überprüft werden, ob die Zwischenablage leer ist.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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