kann mit jemand anderes helfen?
18.01.2005 10:44:25
Matthias
hatte weiter unten schon mal die gleiche Frage gestellt. Nur funktionieren die Lösungsvorschläge leider nicht. Das Problem ist folgendes:
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