- #1
Y
yoeddy
Neues Mitglied
Themenersteller
- Dabei seit
- 21.09.2009
- Beiträge
- 1
- Reaktionspunkte
- 0
Hallo,
ich habe folgendes Makro aufgenommen und möchte nun, dass es sich wiederholt. Dabei soll es sich fortlaufend verhalten bis z.B. AX99 oder AX354.
Könnte mir da bitte, bitte jemand weiterhelfen?
Vielen Dank im Voraus!!
***********************
Sub Macro1()
Range(AI2).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = 2
Range(AC4).Select
Application.CutCopyMode = False
Selection.Copy
Range(AX2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range(AI2).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = 3
Range(AC4).Select
Application.CutCopyMode = False
Selection.Copy
Range(AX3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
ich habe folgendes Makro aufgenommen und möchte nun, dass es sich wiederholt. Dabei soll es sich fortlaufend verhalten bis z.B. AX99 oder AX354.
Könnte mir da bitte, bitte jemand weiterhelfen?
Vielen Dank im Voraus!!
***********************
Sub Macro1()
Range(AI2).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = 2
Range(AC4).Select
Application.CutCopyMode = False
Selection.Copy
Range(AX2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range(AI2).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = 3
Range(AC4).Select
Application.CutCopyMode = False
Selection.Copy
Range(AX3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub