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

Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Nutzung unserer Dienste erklären Sie sich damit einverstanden, dass wir Cookies verwenden.
Weitere Informationen Ok