Excel VBA kopieren und einfügen

...komplette Frage anzeigen

1 Antwort

Das sollte so funktionieren:

Sub InZwischenablage()
Dim strAusgabe As String
Dim Zelle As Range
Dim myData As New DataObject

For Each Zelle In Range("J2:J36")
If Zelle <> "" Then _
strAusgabe = strAusgabe & Zelle & ";"
Next Zelle

strAusgabe = Left(strAusgabe, Len(strAusgabe) - 1)
myData.SetText strAusgabe
myData.PutInClipboard
End Sub

Falls Du zu:
Dim myData As New DataObject
eine Fehlermeldung bekommst, musst Du Deinen Verweisen die
Microsoft Forms 2.0 Object Library
hinzufügen.
Wenn Du nicht weißt, wie das geht, frage nochmal nach, ist ganz einfach.
Klappt es?

Hayo85 23.01.2013, 14:40

Genial, klappt ... danke schön!!!

Das mit dem einbinden hat man schnell gegoogelt :)

Super vielen Dank !!!

0
Iamiam 23.01.2013, 21:07

Chruschow.Clipboard wäre mir lieber gewesen ;)

0
Oubyi 23.01.2013, 21:20
@Iamiam

Solange Du nicht auf myData.StalInClipboard bestehst ...

0

Was möchtest Du wissen?