---

Hallo zusammmen,

ich versuch mal mein Problem zu erklären.

Ich habe eine befüllte Tabelle.
Jetzt will ich von Zeile x bis Zeile y, nach jeder Zeile eine Zeile einfügen. Diese Zeile ist immer die gleiche. Also am besten gleich ausgefüllt eintragen.

Wie geht das?

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

---

Hallo DrOsh2,

wie viele Zeilen sind es denn? Fünf - oder 200?

Wenn Du eine Zeile kopierst, kannst Du (in xls2007 leider nur einmalig) die Kopierten Zeilen einfügen.

Für Handarbeit lassen sich mit der Strg-Taste mehrere Zeilen auswählen, dann Strg + + um Leerzeilen dazwischen einzufügen. In einem zweiten Lauf kannst Du dann die Original-Zeile kopieren, einfügen und via Strg + V (oder Strg + Y) wiederholt einfügen.

Sind es eher an die 200 Zeilen, dann hilft wohl nur VBA - die Prinzipien von oben lassen sich dabei umsetzen. Entweder in einer Wiederholungsschleife die Kopierten Zeilen einfügen - oder (ebenfalls per Schleife?) erst leere Zeilen einfügen und anschließend befüllen. Macro-Recorder-Schnipsel: Selection.Insert Shift:=xlDown und ActiveSheet.Paste.

------------------
DIN1055.de  |  Lastannahmen für Anwender

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

---

Hallo DrOsh2,

als egal ob 5 oder 200 Zeilen, ich tät es so machen:

getestet mit Office 2003

Code:

---

Sub Kopieren()

'### Einstellwerte anpassen ########
Const ende As Double = 10  'Zeile Y
Const Anf As Double = 4    'Zeile X
'###################################

Set ziel = Rows(1) 'Musterzeile

Dim neu As Range
Dim x As Double

Set neu = Nothing
For x = ende To Anf Step -1
    Rows(x).Insert
    If neu Is Nothing Then
        Set neu = Rows(x)
    Else
        Set neu = Union(neu, Rows(x))
    End If
Next

ziel.Copy Destination:=neu

End Sub

---

andereiseits sieht das Ganze doch ein bisschen nach Datenbank aus, und das würde ich garnicht mit EXCEL machen.

Gruß
Peter

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