Geht das auch mit einer Schleife
18.01.2005 09:44:33
Matthias
ich habe eine Prozedur mit dem Makro aufgenommen. Nun will ich das der folgende Quellcode 12 mal (für Februar, März usw.) ausgeführt wird. Dabei sollen nur die weiteren Daten nicht in ("J336"), sondern immer eine Spalte weiter nach rechts kopiert werden (also "K336". Geht das mit einer Schleife? Mein bisheriger Quellcode würde dann wieder von vorne anfangen (für Februar) nur müsste ich so immer die Spalte manuell ändern.
Sub Querschnittsregression()
'Januar
Application.Run "ATPVBAEN.XLA!Regress", ActiveSheet.Range("$B$322:$B$332") _
, ActiveSheet.Range("$B$335:$G$345"), False, True, 95, "", False
Range("B18:B23").Select
Selection.Copy
ActiveSheet.Next.Select
Range("J336").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveSheet.Previous.Select
Application.CutCopyMode = False
Application.DisplayAlerts = False
ActiveSheet.Delete ' löscht das Ausgabeblatt wieder
Application.DisplayAlerts = True
Sheets("Inputdaten").Select
Range("B322:B332").Select ' löscht die monatlichen Renditen der Wertpapiere
Selection.Delete Shift:=xlToLeft
End Sub