Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
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
1852to1856
1852to1856
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

for / next Schleife beschleunigen

Forumthread: for / next Schleife beschleunigen

for / next Schleife beschleunigen
26.10.2021 14:05:14
Udo.D
Hallo Forum,
kann man folgenden Code evtl. noch etwas beschleunigen ?
For i = ActiveCell.Row To ActiveCell.Row + Selection.Rows.Count - 1
Cells(i, 32) = ""
Cells(i, 35) = ""
Cells(i, 36) = ""
Next i
je nach dem wieviel Zeilen ich zuvor selektiere orgelt er dann eben schon so eine Zeit lang.
Bin euch für Tipps sehr dankbar.
LG Udo
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: for / next Schleife beschleunigen
26.10.2021 14:19:21
Daniel
Hi
jede Änderung eines Zellwertes löst in Excel eine Reihe von Hintergrundaktivitäten aus, die Zeit benötigen.
Daher sollte man, wenn man mehrere Zellen auf die gleiche Weise ändern will, nicht jede Zelle einzeln ändern, sondern die Änderung mit einem möglichst großen Zellblock durchführen.
Dann können diese Hintergrundaktivitäten für alle Zellen "in einem Aufwasch" und damit deutlich schneller als für jede Zelle einzeln ausgeführt werden.
kurz gesagt: 10x mal eine Zelle zu ändern dauert etwa 10x so lange wie 1x zehn Zellen zu ändern.
in deinem Fall könnte man alle Zellen so in einem Schritt ansprechen und löschen:

Intersect(Selection.EntireRow, Union(Columns(32), Columns(35), Columns(36))).ClearContents
Gruß Daniel
Anzeige
AW: for / next Schleife beschleunigen
26.10.2021 14:42:59
Udo.D
Vielen lieben Dank Daniel,
sowas suchte ich zum zusammenfassen,
jedoch erste Test damit sind bei mir leider kaum wirklich schneller .?
kann ich es damit jeweils auch noch etwas beschleuningen ( jew. aus und anschl. wieder einschalten ) ?
Application.ScreenUpdating = False / True
Application.EnableEvents = False / True
Application.Calculation = False / True
LG Udo
Anzeige
AW: for / next Schleife beschleunigen
26.10.2021 15:02:49
Daniel
schwer zu sagen, kommt immer darauf an, was an Berechnungen und Formeln noch dahinter hängt.
und ja, das die von mir gemeinten Hintergrundaktivitäten, einen Teil davon kann man deaktivieren, was sich dann beschleunigend auswirkt.
bei optimaler Programmierung sollte es jedoch nur eine minimale Verbesserung bringen.
Gruß Daniel
Anzeige
Vielen lieben Dank Daniel ...
27.10.2021 12:52:19
Udo.D
damit komm ich schon mal weiter. Vermute das ich in meinem Fall auch zu viele aktive Formeln habe
die werde ich zunächst mal in Werte wandeln u erst bei Bedarf in entspr. Formeln zurück... Dann sollte die Performance auch
besser sein.
LG und Danke nochmals
udo
;

Forumthreads zu verwandten Themen

Zeichenkette per for-next-schleife erstellen
lauer

Hallo,
ich möchte mir eine Zeichenkette erstellen lassen.
Ich habe in einer Zelle (B11) den Anfang (1) angegeben und in der anderen (C11) steht das Ende (49).
Nun möchte ich, dass er mir in der E11 die Zeichenkette reinschreibt.
Also ich möchte dann in E11 stehen haben: 1,2,3,4,...
09.08.2008 19:06:00
Thread-ID: 1000538
5 Beiträge
Anzeige
For Next Schleife - Performance
Christoph

Hallo VBA-Experten!
Bin im VBA-Sektor erst seit 3 Tagen aktiv (Selbsteinschulung :-) ). Habe jetzt aber leider ein rießiges Problem und bitte ganz dringend um Eure Hilfe:
In meinem Bericht (siehe Anhang - https://www.herber.de/bbs/user/62579.zip)
soll folgendes passieren:
Der Be...
19.06.2009 17:54:19
Thread-ID: 1082980
6 Beiträge
For-Next Schleife
Micha

Hey,
hat einer von Euch ne Ahnung, warum mir in der folgenden Prozedur eine 3,3,5,5 ausgegeben wird ? - sollte m.E. nach eine 3,4,5,6 sein.
Sub Test5() Repetition = 0 For i = 0.03 To 0.05 Step 0.01 Repetition = Repetition + 1 Next Cells(3, 14) = Repetition Repetition = 0 For i = 0.03 To...
12.11.2009 11:29:23
Thread-ID: 1116427
7 Beiträge
Anzeige
Sytanx zur ForNext-Schleife
Jörg-HH

Guten Abend zusammen,
habe einen Knoten mit der richtigen Schreibweise...
In einem Blattcode steht:
If Target.Address = Range("Hilfszelle2").Address Then Call machwas2 End If If Target.Address = Range("Hilfszelle3").Address Then Call machwas3 End If usw... bis 5
in einem Modul...
08.12.2009 20:44:25
Thread-ID: 1122490
11 Beiträge
Anzeige
For...Next Schleife anstelle Do until...Loop | Herbers Excel-Forum
Stefan
Hallo zusammen,
ich habe eine Do...Loop Schleife und würde diese gerne durch eine For...Next Schleife ersetzten.
Geht das in diesem Fall überhaupt? Sub loop() Dim iRow As Integer iRow = 5 Do Until Cells(iRow - 1, 1).Value = "x" If IsEmpty(Cells(iRow, 1)) Then End If iRow = iRow + 1 Loop End...
14.01.2010 15:23:09
Thread-ID: 1129973
11 Beiträge
For Next Schleife ?
Leitz

Hallo!
Wie kann ich eine For Next Schleife so ändern, daß sie aufhört sobald die erste Übereinstimmung gefunden wurde?
Oder muß ich da was anders vewenden?
Sub DatumSuche() Dim Datum As Date Datum = Cells(3, 5) 'Testdatum Dim a As Integer For a = 100 To 3 Step -1 If Cells(a, 1).Text...
09.02.2010 18:48:49
Thread-ID: 1137145
13 Beiträge
dynamische For Next Schleife
Steffen

Hallo zusammen,
ich habe eine For next Schleife, der obere Bereich soll hier bei dynamisch sein, da während der Prozedur Zeilen eingefügt werden. Ich habe es mit folgendem Code probiert wobei der obere Bereich auch hochgezählt wird aber die Schleife bei dem Ursprungswert beendet wird.
D...
19.02.2010 12:24:57
Thread-ID: 1139740
6 Beiträge
Anzeige
For Next Schleife umschreiben
Alex

Hallo zusammen,
ich habe hier eine ForNext-Schleife, die ich so nicht lassen kann.
Wenn die Bedingung nicht erfüllt ist soll ein Parameter gesetzt werden.
Wenn die Bedingung erfüllt ist , wird eine Abfrage gemacht, ob die Datei überschrieben werden soll. Wird diese Abfrage n...
06.05.2010 13:15:30
Thread-ID: 1155800
9 Beiträge
VBA_For-Next Schleife ist fehlerhaft
Dirk

Hallo allerseits,
habe da noch ein Problem mit einer Schleife.
Nachstehender CODE soll im TB Eingaben Zeile 1 nach einem Wert aus TB Ausgabe A1 suchen.
Macht er auch, nur zeigt er mir immer erst die msgBox an (nichts gefunden) und wenn ich die dann x-mal bestätige, kommt dann auch i...
06.05.2010 17:41:15
Thread-ID: 1155887
5 Beiträge
For Next Schleife
Alex

Hallo zusammen,
in einer Zelle "zB. A5" habe ich eine Nummer.
Diese Nummer soll untereinander so oft wie in einer anderen zelle angegeben um eins erhöht werden.
Ich habe versucht dies über eine for next schleife zu lösen, aber ich bekomme den Verweis von 1 to Zelle nicht hin und in...
02.09.2010 07:56:31
Thread-ID: 1175352
7 Beiträge
for next schleifen problem
carstenas

Hallo Forum
Ich bastel zur Zeit an einer Datei für meine Kollegen bin aber an einem Punkt angekommen wo ich nicht mehr weiter komme.Mein Problem sind For Next schleifen.
Dass Problem sind 2 Tabellen zu vergleichen.Es gibt 8 Tabellen Mo-So und eine Übersicht wo die werte aus den Tabellen...
14.11.2010 17:00:29
Thread-ID: 1186723
20 Beiträge
For Next Schleife für Fomel ausfüllen
Karsten

Hallo
Ich möchte eine Tabelle mit Formeln füllen:
=SUMME(alle_Spiele!O4:O12)
=SUMME(alle_Spiele!R4:R12)
=SUMME(alle_Spiele!U4:U12)
usw...
Spalte erhöht sich immer um 3 Spalten
In der nächsten Spalte erhöhen sich die Zahlen um jeweils 9.
=SUMME(alle_Spiele!O13:O21...
28.12.2010 10:13:18
Thread-ID: 1193013
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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