Controle klembord of hij leeg is

[RLorenzo]

In dit bestand steekt er een VBA code waarbij hij in kolom B de eerst volgende lege cel zoekt en dan paste wat er op het klembord staat. Nu krijg ik een foutmelding wanneer het klembord leeg is. Is het mogelijk daar een if tussen te steken die zegt dat hij leeg is?

Mvg Lorre

Sub Plakken()
'
' Plakken Macro
'
' Sneltoets: Ctrl+v
'
Sheets("Blad1").Select
Range("b65535").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End Sub

Bekijk bijlage Testbestand.xlsm

 

[SjonR]

zoiets?

Sub Plakken()

If Application.ClipboardFormats(1) = -1 Then
    MsgBox "Er valt niets te plakken!"
Else
    Sheets("Blad1").Range("b65535").End(xlUp).Offset(1, 0).PasteSpecial
End If

End Sub