Spalte in Spalte kopieren nicht in Zelle?
18.11.2003 13:05:27
Micha
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