Schleife
08.07.2008 12:12:45
Otto
Ich habe mit dem Makrorecorder ein Makro aufgenommen, das immer das gleiche wiederholt aber fuer die zellen x+1. Ich bin sicher dass es moeglich ist eine Schleife einzubauen die das automatisch macht, aber ich weiss nicht wie.
Unten ist das Code nur fuer 2 Reihen , den ich 200 mal wiederholt haben moechte. Ich glaube es ist klar was ich erreichen moechte, wenn man das Code sich anschaut.
Koennt Ihr mir Helfen?
Vielen Dank im Voraus fuer die Hilfe
Otto
Range("D11").Select
Selection.Copy
Range("E10").Select
ActiveSheet.Paste
Range("A13").Select
Application.CutCopyMode = False
Selection.Copy
Range("J10").Select
ActiveSheet.Paste
Range("A14").Select
Application.CutCopyMode = False
Selection.Copy
Range("K10").Select
ActiveSheet.Paste
Rows("11:14").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("D12").Select
Selection.Copy
Range("E11").Select
ActiveSheet.Paste
Range("A14").Select
Application.CutCopyMode = False
Selection.Copy
Range("J11").Select
ActiveSheet.Paste
Range("A15").Select
Application.CutCopyMode = False
Selection.Copy
Range("K11").Select
ActiveSheet.Paste
Rows("12:15").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp