PutInClipboard

Forumthread: PutInClipboard
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: PutInClipboard

PutInClipboard

12.12.2002 17:09:14

Jack

Hallo,

wenn ich den Befehl PutInClipboard nutze, kriege ich immer die Fehlermeldung "Laufzeitfehler - DataObject:PutInClipboard nicht implementiert". Hat jemand eine Idee, woran das liegen könnte?

Danke!

Jack

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: PutInClipboard

12.12.2002 17:52:29

L.Vira
Re: PutInClipboard

14.12.2002 15:48:28

Lutz Schnalke

Re: PutInClipboard

12.12.2002 17:52:29

L.Vira

wo ist der Code?

Re: PutInClipboard

14.12.2002 15:48:28

Lutz Schnalke

Hallo,
das Problem hatte ich auch. Die Implementierung erfolgt über .SetText. Hier ein Beispiel, das das verdeutlicht. Der aktuelle Inhalt der Zwischenablage wird über ein DataObject in der Variablen KdNrText gespeichert und später wieder aus der Variablen in die Zwischenablage übertragen und in eine Zelle eingefügt.
Lutz

Dim KdNrText As String
Dim KdNr As DataObject
Set KdNr = New DataObject

'Kd.Nr. aus Zwischenablage in DataObject und von dort
'im Variable KdNrText übernehmen
KdNr.GetFromClipboard
KdNrText = KdNr.GetText()

'Kd.Nr. aus Variable in DataObject
'und von dort in Zwischenablage
KdNr.SetText KdNrText
KdNr.PutInClipboard
'Kd.Nr. aus Zwischenablage in Zelle an Cursor-Position einfügen
ActiveSheet.Paste