Geht das auch mit einer Schleife
20.01.2005 09:34:13
Matthias
ich habe folgendes Problem:
Ich habe eine Prozedur, die 10 mal wieder holt werden soll. Nur würde mein Quellcode dabei sehr lang werden. Funktioniert das auch mit einer Schleife:
ACHTUNG: Am Ende der 10 Wiederholung sollen diese Zeilen gelöscht werden
Rows("9:20").Select
Selection.Delete
Sub test()
Application.Run "ATPVBAEN.XLA!Regress", ActiveSheet.Range("$H$8:$H$67"), _
ActiveSheet.Range("$B$8:$G$67"), False, True, 95, "", False
' führt die Regression durch
Range("B18:B23").Select
Selection.Copy
ActiveSheet.Next.Select
Range("B336").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
' kopiert die Daten aus dem Ausgabeblatt in die beta-Matrix
ActiveSheet.Previous.Select
Application.CutCopyMode = False
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
' löscht das Ausgabeblatt wieder
Sheets("Inputdaten").Select
End Sub