Hallo!
Habe ein Spreadsheet in einer Userform und möchte die Werte per vba in das darunterliegende Excel Sheet kopieren, aber bis jetzt kopiert er die Werte nur in eine Zelle darunter er soll sie aber in die SPalte kopieren. Wie geht das?

If Spreadsheet1.Range("A2").Value = "" And Not Spreadsheet1.Range("B2").Value = "" And Not Spreadsheet1.Range("C2").Value = "" Then
MsgBox "A"
Do While Not Spreadsheet1.Cells(Z, S + 1) = ""
Z = Z + 1
Loop
Spreadsheet1.Range(Spreadsheet1.Cells(2, 2), Spreadsheet1.Cells(Z - 1, S + 1)).Select
Spreadsheet1.Selection.Copy

Set Zwischenablage = New DataObject


Zwischenablage.GetFromClipboard

On Error GoTo Errorhandler
With ActiveWorkbook.ActiveSheet
Z = 1
S = 1
Do While Not .Cells(Z, S) = ""
Z = Z + 1
Loop




vielen dank