Clever-Excel-Forum

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?

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.

Dein angegebener Befehl ist mir bekannt. Danke.

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

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

Wulfi

BoskoBiati

Wulfi

schauan