---

test.zip

Hallo Leute,

hab folgendes Problem: Ich habe eine Excelliste mit über 2000 Einträgen. Jede Zeile soll jeweils 4x unter sich selbst eingefügt werden.

Könnt mir mir behilflich sein. Hab im Anhang eine Textversion.

Danke. Gruß Christoph

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Abend Christoph,

bin irgendwie grade etwas aus der Übung, egal - versuche es mal so:

Code:

---

Sub give_me_five()
  Dim a, ro%, col As Byte, i As Byte, x%
  x = Cells(Rows.Count, 1).End(xlUp).Row 'letzte belegte Zeile in A
  a = Range(Cells(2, 1), Cells(x, 6)) 'Spalte 1-6 'ggf. anpassen
  ReDim b(1 To 5 * UBound(a, 1), 1 To UBound(a, 2))
  i = 1
  For ro = 1 To UBound(a, 1)
      For col = 1 To UBound(a, 2)
        b(i, col) = a(ro, col)
        b(i + 1, col) = a(ro, col)
        b(i + 2, col) = a(ro, col)
        b(i + 3, col) = a(ro, col)
        b(i + 4, col) = a(ro, col)
      Next
      i = i + 5
  Next
  Range(Cells(2, 1), Cells(UBound(b, 1) + 1, UBound(b, 2))) = b
End Sub

---

Die ganze Zeile wird nicht genommen, nur bis Spalte 6, sonst halt das cells(x,6) anpassen;-)

HTH, Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hab' grade noch bemerkt [bissle spät;-)],
dass das i dem 'Geiz ist geil' zum Opfer fiel, da Byte wohl arg zu knapp gewählt ist.
Mit Dim i as integer [bis Hausnummer 32.767] oder für ganz harte Fälle Dim i as long sollte es keinen Überlauf mehr geben, sorry;-)

Gruss Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nancy!

Danke für die super-schnelle Antwort!
Hat klasse funktioniert!
Wenn es mehr als 10 Unities geben würde, du hättest sie sicher!

Gruß,
Christoph

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP