PDA

Vollständige Version anzeigen : Bestimmte Anzahl an Zeilen einfügen


meddi
20.12.2017, 18:43
Hallo Zusammen,

leider verfüg ich nicht genügend Erfahrung, um ein Makro für folgende Anwendung zu erstellen:

Ich habe mehrere Zeilen (Es können 3 sein, aber auch 100). In jeder Zeile steht in Spalte A ein Name und in Spalte B eine beliebige Zahl.
Ich möchte nun automatisch so viele Zeilen unter jede beschrieben Zeile einfügen, wie die Zahl in Spalte B ist.

Könntet ihr mir hierbei behilflich sein?
Freue mich sehr über eine Antwort.

Viele Grüße

lupo1
20.12.2017, 18:56
Sub Einfuegen()
a = [A1:B9999]
x = [X1:Y9999]
j = 1
For i = 1 To 999
x(j, 1) = a(i, 1)
x(j, 2) = a(i, 2)
j = j + a(i, 2) + 1
Next
[A1:B9999] = x
End Sub