Hallo,
ich müsste in eine Excel Tabelle Zellen automatisch kopieren/ einfügen.
Wenn Beispielsweise in Zelle F2 der Wert "4" eingegeben wird, soll die gesamte Reihe kopiert und darunter noch "3" mal einfügt werden.
Bei Eingabe "8" in Zelle F3 dann beispielsweise noch "7" mal eingefügt werden.
Ich dachte an eine Schleife... ( Ich bräuchte wahrscheinlich noch eine Schleife um die Anzahl der kopierten Zeilen zu steuern )nur leider hänge ich gerade beim kopieren einer Zeile fest.
If Target.Adress = "F2" Then
Dim i As Integer
For i = 2 To 100
Cells (i, 6).Value = Row i. select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Next i
End Sub
Vielen Dank für die Hilfe!
|