TTest VBA Code

Option Explicit

Sub zwischenablage()
Dim byAbfrage As Byte
If Application.ClipboardFormats(1) = 0 Then 'wenn Zwischenablage nicht leer dann
    byAbfrage = MsgBox("Soll die Zwischenablage geleert werden?", 1, "Schalterabfrage")
    If byAbfrage = 1 Then
        Application.CutCopyMode = False 'Zwischenablage wird geleert
    Else
        MsgBox "Zwischenablage bleibt erhalten."
    End If
Else
    MsgBox "Zwischenablage istleer"
End If
End Sub