Hallo liebe Excel-Profis,
ich habe mir einen Code erstellt, der einen bestimmten Zellenbereich kopieren und dann "x" mal fortlaufend nach rechts einfügen soll.
Leider fügt mein Code mir bei einer Belegung des Wertes für die Schleife <8 den kopierten Bereich 6 mal ein, für Scheifenwert >8 dann 10 mal.
Ich finde leider meinen Fehler nicht.
Anbei der Code, vielleicht findet von euch ja wer den Fehler und möchte mir weiterhelfen:
Sub Interfaces()
Dim Ziel As Range
Dim Var As Long
Dim j As Integer
If Sheets("Tabelle1").Range("B7").Value > 1 Then
Var = Worksheets("Tabelle1").Range("B7").Value
For j = 2 To Var
Set Ziel = Worksheets("Tabelle1").Range(Cells(36, 4 * Var + 1), Cells(46, 4))
Range("A36:C46").copy
Ziel.PasteSpecial Paste:=xlValues
Next
End If
End Sub
Vielen Dank im Voraus & viele Grüße
ein Excel Newbie
|