Hey Leute, ich hab ein kleines Problem, ich habe eine Range in der Werte stehen und die möchte mehrmals nebeneinander kopieren(um in einem Diagramm mehrere Zyklen darzustellen), der Wert wird richtig übergeben und der Code geht die For-Schleife auch dementsprechend oft durch (durch einzelschritte überprüft). Mein Problem ist das die kopierte Range nur einmal Rechts neben die bestehenden Werte kopiert wird und nicht beim nächsten durchlauf der schleife wieder in die erste freie spalte gepastet wird. Kann mir da jemand helfen?
Danke im Voraus
Option Explicit
Dim zyklen As Variant
Private Sub CommandButton1_Click()
Dim index As Integer
For index = 0 To zyklen
Range("B14:K20").Copy
Cells(14, Range("B14:K20").Columns.Count + 2).PasteSpecial Paste:=xlPasteValues
Next index
Unload UserForm1
End Sub
|