Spalten kopieren und in Zeilen einsetzen

[McHobi]

Hallo zusammen,
 iregndwie habe ich einen Hänger.
 Ich wollte mir ein kleines Makro erstellen weil ich sehr oft das gleiche machen muss bekomme es aber irgendwie nicht hin.

Ich Markiere eine Zeile und möchte dann das Makro ausführen.
 - Dieses soll dann die Zeile 5x nach unten Kopieren
 - Dann soll es in der ersten neuen Zeile, in Spalte 5 was eine Zahl einsetzen
 - Dann in der zweiten neuen Zeile, in Spalte 5 eine definierte Zahl einsetzen
   ...

Einzeln bekomme ich alles hin aber ich kann's nicht kombinieren.
Weil er hat immer das Problem wenn er die markierte Zeile verlassen soll und in die einzelnen Felder soll um dort was einzusetzen

Kann mir hier einer ein Tipp geben?

Danke im Voraus Hobi

[Käpt'n Blaubär]

Hallo,

also VBA ist einfacher zu lernen als Dein Vorhaben zu begreifen.

Wenn Du ein Makro schreiben willst, dann hast Du doch schon eine Datei.
Zeige sie uns, dann sehen wir weiter.

[McHobi]

Vor Frust habe ich sie geschlossen ohne sie zu Speichern

Habe nur noch ein Bruhstück:

i = ActiveCell.Row
Rows(i + 1 & ":" & i + 1).Select
Selection.Insert Shift:=xlDown
Rows(i & ":" & i).Select
Selection.Copy
Range("A" & i + 1).Select
ActiveSheet.Paste
Range("A" & i + 2).Select
ActiveSheet.Paste
Range("A" & i + 3).Select
ActiveSheet.Paste
Range("A" & i + 4).Select
ActiveSheet.Paste
Range("A" & i + 5).Select
ActiveSheet.Paste
End Sub

[Kuwer]

Hallo Hobi,

Sub FuenfNeueZeilen()
 With ActiveCell.EntireRow
   .Copy
   .Offset(1).Resize(5).Insert
   .Offset(1).Cells(5).Value = 5
   .Offset(2).Cells(5).Value = 4
   .Offset(3).Cells(5).Value = 3
   .Offset(4).Cells(5).Value = 2
   .Offset(5).Cells(5).Value = 1
 End With
 Application.CutCopyMode = False
End Sub

Gruß Uwe

[McHobi]

DANKE!
Läuft super und viel einfacher wie ich es gemacht hätte