muss leider doch noch eine Nachfrage starten:
Scheinbar hat der Code ein Prob. sofern der Zwischenspeicher leer ist. Läuft dann auf folgenden Fehler:
Laufzeitfehler'-2147221404(80040064)':
DataObject:GetText Ungültige FORMATETC-Struktur
Könntest du bitte noch einmal schauen?!
Danke im Vorwege
Thomas
Public Sub Verify_Clipboard()
Dim objClipBoard As Object
Set objClipBoard =
CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
Call objClipBoard.GetFromClipboard
If Left$(objClipBoard.GetText, 10) = "Dienstplan" Then
'MeinMacro
Else
MsgBox "Falscher Inhalt im Clipbard", vbExclamation, "Hinweis"
End If
Set objClipBoard = Nothing