Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Geht das auch mit einer Schleife

Forumthread: Geht das auch mit einer Schleife

Geht das auch mit einer Schleife
20.01.2005 09:34:13
Matthias
Hallo,
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

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
warum nicht? (Gruß, Frage Gruß/Name)
Volker
Hallo Matthias,
leider find ich den witzigen Link nicht mehr, mit dem unhöfliche Fragensteller auf die Gepflogenheiten (nicht nur) dieses Forums hingewiesen werden.
Zusammengefaßt steht da:
Gruß
Frage
Danke
Gruß
Name
Kann man sich aber auch bei anderen Fragen abgucken.
Zu deinem Problem:

Sub test()
for i=1 to 10
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
next
' Achtung: bist Du auch im gewollten Sheet?
Rows("9:20").Delete
End Sub

Gruß
Volker
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige