DataObject und Zwischenabalage
18.04.2009 19:19:53
MBorn
ich habe von Sepp Ehensberger gelernt, daß man zum Abfragen
der Windows Zwischenablage folgendes Script benutzen kann:
Sub TextFromClipboard()
'Benötigt den Verweis auf "Microsoft Forms 2.x Object Library" (unter Extras > Verweise)
Dim objCBData As DataObject
Dim lrow As Long
Set objCBData = New DataObject
objCBData.Clear
lrow = Range("B100000").End(xlUp).Row
On Error GoTo ErrNoText
objCBData.GetFromClipboard
Cells(lrow + 1, 2) = objCBData.GetText
ErrNoText:
If Err.Number 0 Then MsgBox "Kein Text in der Zwischenablage!"
Set objCBData = Nothing
End Sub
Was ich nun nicht schaffe, ist, dieses Skript so zu verändern, daß ein
Platzhalter, wie "-" in die Zelle eingetragen wird, wenn das Clipboard
leer ist.
Falls es nicht leer ist soll es nach dem Eintrag in Excel geleert werden.
Im Moment wird immer der Befehl selbst übertragen: Also, es steht in
der Excel Zelle: objCBData.Clear oder objCBData.GetFromClipboard.
Kann mir jemand unter die Arme greifen?
Gruß und Dank,
Born