Excel, ich möchte immer die Zeile 5 in die dritte Zeile kopieren bis zum Listenende

Computer: Software & Programmierung Office Software
#1

Hallo zusammen,

ich habe eine excel Liste, in der nach zeile 5 immer 2 beschriebene Zeilen und dann eine Leerzeile kommen.
In die jeweiligen Leerzeilen möchte ich gerne die Zeile 5 kopieren und das bis ans Tabellenende.
In der ersten Zelle der letzten Zeile des Tabellenblattest steht immer ein „Erstellt“

Hat jemand eine Idee, wie ich das per macro hinbekomme?

Danke für eure Hilfe

#2

Hallo Martina

Ich habe Dein Anliegen so verstanden: Die Zeilen 8, 11, 14 usw. sind leer. Diese leeren Zeilen sollen gefüllt werden mit der Zeile 5. Die Aktion soll beendet werden, wenn in Spalte A der Begriff „Erstellt“ auftaucht.

Um das zu bewerkstelligen, geht folgendes Makro:

Sub ZeileFuenf()
Columns("A:A").Select
Selection.Find(What:="Erstellt", After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate
zerstellt = ActiveCell.Row

Rows("5:5").Select
Selection.Copy
zleer = 8
While zleer < zerstellt
    Rows(zleer).Select
    ActiveSheet.Paste
    zleer = zleer + 3
Wend
Application.CutCopyMode = False
Range("A" & zerstellt).Select
End Sub

Bei mir klappt es. Ich hoffe, bei Dir auch.
Viele Grüsse Niclaus

#3

Hallo Niclaus,

wow - super vielen Dank,. das funktioniert perfect
1000 Dank für deine Hilfe!

Viele Grüsse
Martina