Text in Zwischenablage kopieren
16.06.2016 16:19:22
Chris
in einer Anwendung soll der zweispaltige Inhalt einer Listbox in die Zwischenablage kopiert werden damit er z.B. in eine E-Mail eingefügt werden kann.
Hier der Code:
Private Sub cmdCopy_Click()
Dim copytext As String
Dim i As Integer
Dim myData As New Dataobject
For i = 0 To Me.lblProdukte.ListCount - 1
copytext = copytext & Me.lblProdukte.Column(0, i) & " " & Me.lblProdukte.Column( _
1, i) & vbCrLf
Next i
myData.Clear
myData.SetText copytext
myData.PutInClipboard
MsgBox copytext
End Sub
Das Problem:
Beim einfügen zeigt er mir nur zwei kleine Vierecke an.
Lese ich den Inhalt der Zwischenablage aus und gebe es in eine MSGBox aus, erscheint: "?"
Lässt sich der Inhalt der Zwischenablage irgendwie formatieren / definieren?
Danke und viele Grüße
Chris