Dim Text As String 

Dim Buf As Variant 

 

If Clipboard.GetFormat(vbCFText) = True Then 

    'Wenn in der Zwischenablage Text ist,  

    'wird er in einem String gespeichert 

    Text = Clipboard.GetText  

  Else 

    'ansonsten in einer Variant Variable 

    Buf = Clipboard.GetData  

  End If

Clipboard.Clear 

If Text = "" Then 

  Clipboard.SetData Buf 

Else 

  Clipboard.SetText Text 

End If