Ich würde gern über ein Userform folgendes ablaufen lassen.
Im Sheet"Bearbeiten" die Zeile über der activen Zeile den Bereich von B-L kopieren, diesen dann in Abhängigkeit der Zahl in der TextBox1051
x mal also auch mehrmals darunter einfügen.
wenn in "A" in der activen Zeile noch keine Zahl steht- soll dort fortlaufend nacheinander zwei Zahlen untereinander eingetragen werden,
folgendes geht bereits:
Das macht das Makro
Sub Letzte_Doppelzeile_Wiederholt_eintragen()
With ActiveCell
If .Row > 2 Then
Cells(.Row - 2, 2).Resize(2, 11).Copy Cells(.Row, 2)
End If
End With
'nun die Zahl in Zeile "A"
With Cells(ActiveCell.Row, 1).Offset(1, 0).Resize(3, 1)
.FormulaR1C1 = "=R[-1]C+1"
.Formula = .Value
End With
With Cells(ActiveCell.Row + 1, 2).Value 'hier eine zeile tiefer
ActiveCell.Offset(2).Select
End With
End Sub
Kopieren der letzten 2 Zeilen und anfügen unten darunter in Abhängigkeit der gewünschten Anzahl in TextBox1050
Private Sub CommandButton20142_Click()
'übertrage die letzten Doppelzeilen x mal
Dim x
If IsNumeric(UserForm100.TextBox1050.Text) Then
For x = 1 To CLng(UserForm100.TextBox1050)
Call Letzte_Doppelzeile_Wiederholt_eintragen
Next
Else
MsgBox "Keine Anzahl gewählt"
End If
UserForm100.TextBox1050 = 1
With Cells(ActiveCell.Row, 1).Offset(1, 0).Resize(3, 1)
.FormulaR1C1 = "=R[-1]C+1"
.Formula = .Value
End With
End Sub
Dazu fehlt mir der Code.
https://www.herber.de/bbs/user/162946.xlsm
Vieleicht muss es auch ganz anders geschrieben werden.
Gruß Andreas