Ich habe eine Tabelle, in der von Zeile 4 bis 1.500 vorhandene Werte eingefügt werden sollen nach folgendem Schema:
D4 kopieren --> einfügen in D5 und D6
D10 kopieren --> einfügen in D11 und D12
D16 kopieren --> einfügen in D17 und D18
usw. bis D1500
Vermutlich ein sehr einfaches Makro. Ich habe als Neuling ein Makro aufgezeichnet und versucht, dann anzupassen. Funktioniert natürlich nicht:
Sub Makro2()
' Makro2 Makro
Range("D4").Select
Selection.Copy
Range("D5").Select
ActiveSheet.Paste
Range("D6").Select
ActiveSheet.Paste
ActiveCell.Offset(4, 0).Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveCell.Offset(4, 0).Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End Sub
Freue mich sehr über eure Unterstützung.