Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Prüfung, ob die Zwischenablage leer ist

Gruppe

Ansicht

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