Kopieren aus der Zwischenablage

[Wulfi]

Hallo Forum,

habe folgenden Code:

Code:

Sub Kopieren()
Dim myData As DataObject
Set myData = New DataObject
Range("A1:A30").Copy
myData.GetFromClipboard
ActiveSheet.Range("B1:B30") = myData.GetText ' Hier ist das Problem!!
End Sub

Jetzt wird mir aber in jeder Zelle von B1 bis B30 der gesamte Inhalt den ich kopiert habe geschrieben.
Wie kriege ich den Inhalt von Spalte A in Spalte B?

[BoskoBiati]

Hallo,

normalerweise so:

Code:

Sub kopieren()
Range("A1:A30").copy destination:=sheets("xyz").Range("B1:B30")
End sub

wobei sheets"xyz" das Blatt bezeichnet, wo die Daten hin sollen.

[Wulfi]

Dein angegebener Befehl ist mir bekannt. Danke.

Ich möchte aber das Ganze über die mit Set vereinbarte Objektvariable lösen.

[schauan]

Hallöchen,

von hinten durch die Brust ins Auge so:

Code:

Sub Kopieren()
Dim myData As DataObject
Set myData = New DataObject
Dim myText, arrtext
arrtext = WorksheetFunction.Transpose(Range("a1:a30").Value)
myText = Join(arrtext, Chr(10))
myData.SetText myText
myData.PutInClipboard
Range("B1").Select
ActiveSheet.Paste
End Sub