Hallo,
u.st. Codes, welche ich hier im Internet gefunden habe, funktionieren leider nicht. Nun weiß ich nicht, ob es an meiner alten Excelversion liegt. Vielleicht hat jemand eine funktionierende Lösung.

Besten Dank
Gruß Lutz


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
( https://www.herber.de/mailing/Pruefung_ob_die_Zwischenablage_leer_ist.htm )



Option Explicit
Sub Clipboard()
Dim TestDaten As DataObject
On Error Resume Next
TestDaten.GetFromClipboard
If Err Then
MsgBox "Clipboard enthält keine Daten!"
End If
End Sub
( https://www.herber.de/forum/archiv/148to152/151017_Pruefen_ob_Zwischenablage_leer_ist.html#1 )


Public Declare Function CountClipboardFormats Lib "user32" () As Long

Function IsClipboardEmpty() As Boolean
IsClipboardEmpty = (CountClipboardFormats() = 0)
End Function
( https://officeoneonline.com/vba/is_clipboard_empty.html )