Makro kopieren und einfügen

Computer: Software & Programmierung Office Software
1

Hallo,
ich versuche mich in Excel an einem Makro, doch es will nicht klappen - vielleicht kann mir jemand helfen.

Ich möchte die aktive Zelle um 5 Zellen nach rechts erweitern, diese gesamt kopieren und eine Zelle unter der aktiven Zelle alle 6 Zellen einfügen.
Dies soll in jeder aktiven Zelle im Tabellenblatt funktionieren.

Danke Harald

2

Hallo

Ich möchte die aktive Zelle um 5 Zellen nach rechts erweitern,
diese gesamt kopieren und eine Zelle unter der aktiven Zelle
alle 6 Zellen einfügen.
Dies soll in jeder aktiven Zelle im Tabellenblatt
funktionieren.

Im Modulcode einfügen:

Sub Kopie()
 Range(ActiveCell, ActiveCell.Offset(0, 5)).Select
 Selection.Copy
 Selection.Offset(1, 0).Select
 ActiveSheet.Paste
 Selection.cells(1).offset(-1,0).select
 Application.CutCopyMode = False
End Sub

Anmerkung: Der Code funktioniert nicht in der letzten Zeile (65384) und den letzten fünf Spalten (IR-IV) der 2003er-Tabelle. Dafür kann ich aber nichts - die Aufgabenstellung war unpräzise (bzw. unlösbar).

Gruß
smalbop

3

Ich möchte die aktive Zelle um 5 Zellen nach rechts erweitern,
diese gesamt kopieren und eine Zelle unter der aktiven Zelle
alle 6 Zellen einfügen.
Dies soll in jeder aktiven Zelle im Tabellenblatt
funktionieren.

Hallo Harald,

Sub Kop()
ActiveCell.Resize(1, 6).Copy Destination:=ActiveCell.Offset(1, 0)
End Sub

Gruß
Reinhard

4

Danke für Eure Antworten, es funktionieren beide Lösungen

Gruß Harald