Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
124to128
124to128
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

excel wird in schleife immer langsamer

Forumthread: excel wird in schleife immer langsamer

excel wird in schleife immer langsamer
04.06.2002 15:57:05
Thomas
hallo!
ich lasse excel eine schleife abarbeiten, die eine 30.000 zeilen lange tabelle prüft und dementsprechend zellen füllt.
ich habe mal in einer zelle einen zähler mitlaufen lassen, so dass ich sehen kann, in welcher zeile excel grad ist.
am anfang rasen die zahlen nur so, aber je weiter die bearbeitung fortgeschritten ist, desto (extrem) langsamer wird die schleife.
kann mir jemand sagen, warum ?
ab ca. der 5000. zeile wird es merklich langsamer...

wie kann ich das unterbinden ?

danke euch!

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: excel wird in schleife immer langsamer
04.06.2002 16:17:29
Markus
Setze am anfang deiner Schleife:
Application.ScreenUpdating = False
und am Ende natürlich
Application.ScreenUpdating = True
Es könnte die ganze Prozedur um ein vielfaches beschleunigen!

Gruss Markus

hab ich schon...
04.06.2002 16:20:39
Thomas
...ist aber leider immer noch extrem langsam... :-(

gruss,

thomas

Anzeige
Re: excel wird in schleife immer langsamer
04.06.2002 16:25:36
Harald Kapp
Hallo Markus,
lass mal Beispielcode rüberwachsen.

Gruß Harald

Re: hab ich schon...
04.06.2002 16:49:18
Michael Scheffler
Hallo,

setze mal an das Ender Deiner Schleife:
DoEvents

Gruß

Micha

Re: excel wird in schleife immer langsamer
04.06.2002 17:21:17
Markus
Sub Schleife()
ScreenUpdating = False

For i = 1 to 30000
'Anweisungsblock
Next i

ScreenUpdating = True
End Sub

Anzeige
Re: excel wird in schleife immer langsamer
04.06.2002 17:25:06
Joachim L.
Hallo Thomas,

probier mal das:
Am Anfang die Berechung auf manuell setzen.
Application.Calculation = xlCalculationManual
und am Ende wieder auf automatisch.
Application.Calculation = xlCalculationAutomatic

Gruß Joachim

Re: excel wird in schleife immer langsamer
05.06.2002 09:34:51
Harald kapp
Hallo Markus,
'ne Schleife programmieren kann ich auch.
Eigentlich meinte ich genau den Teil, der im "Anweisungsblock" steht. Ist da evtl. eine weitere Schleife drin, derern Laufzeit durch i bestimmt wird?

Gruß Harald

Anzeige

Forumthreads zu verwandten Themen

Excel VBA Anwendung Makro auf 2 Tabellenblätter
Chris

Hallo zusammen,
Also ich versuche unten stehende Berichtsfunktion. Hier wird durch Excel ein Worddokument erzeugt auf 2 Tabellenblätte zu erweitern. Momentan Tabellenblatt 2+3, vielleicht dann auch mehr.
Die Excel ist Open Source, deswegen ist die Freilegung eher kein Thema.
Ich hab...
09.07.2018 16:47:50
Thread-ID: 1632930
1 Beitrag
Speichern über VBA
marc

Ich lasse mit follgendem Makro meine Rechnungen drucken:
Sub DruckRebbelroth() On Error GoTo R_Error Auswahl = MsgBox("Druck starten?", 3, "Rebbelroth") If Auswahl = 6 Then Dim newNr As Variant, oldNr As Variant Dim FileName As String FileName = "C:\Rechnung33.ini" If Range("E19") <>...
24.05.2004 20:01:15
Thread-ID: 432506
2 Beiträge
Tabelle mit Makro kopieren
Elia
Liebe Excel-Anwender,
ich bin absolut kein Vba Mensch und wende mich deshalb an euch.

Momentan hab ich ein Projekt mit einem Planungstool das mit Excel arbeitet.

In diesem Tool wird mit Buttons gearbeitet, diese Buttons sind in einer Tabelle hinterlegt. Diese Buttons sind in e...
14.04.2023 13:58:12
Thread-ID: 1927545
3 Beiträge
Anzeige
Fehler 91: Objektvarialble nicht festgelegt
Reinhard

Hallo Wissende,
obiger Fehler kommt im nachfolgenden Code in "Sub UpdateSummaryInfo" in der Zeile:
If TextBox1.Text oDocProp.Author Then
obwohl ich anfangs des Codes im Modul einer UF dieses stehen habe:
Option Explicit
Private oFilePropReader As DSOleFile.PropertyReader
16.06.2008 20:24:00
Thread-ID: 986264
5 Beiträge
Messpunktlage Diagramm in einer Zeile mit Höhe 15
Matthias Kästner
Hallo zusammen,

ich möchte am Ende meiner Tabelle ein Messpunktlage Diagramm einfügen wie auf den Bild zu sehen.



Ich habe es jetzt schon mit Gemini und Copilot probiert und bekomme es nicht hin. Das ist der aktuelle Status über VBA.



Ich möchte eine...
17.12.2025 16:21:03
Thread-ID: 2022310
5 Beiträge
Makro mit Schleife für nächste Zeile
Julian

Liebe VBA-Experten,
als Makro-Anfänger habe ich für eine automatisierte Anschreibenserstellung ein Makro geschrieben, dass eine Vorlage öffnet und bei gesetzten Bookmarks vorgefertigte Bilddateien einsetzt und das Dokument dann als .docx und als .pdf speichert.
Da das selbe Makro für m...
30.04.2020 13:18:05
Thread-ID: 1755848
11 Beiträge
VBA Outlook | Warnmeldung
Lena

Hallo zusammen,
ich habe mich das erste Mal an VBA in Outlook gewagt. Ich möchte gerne einen Überblick wann ich was wie bekommen (und gesendet) habe und an wen, Subject und Body des Textes.
Habe was sehr gutes im Internet gefunden und bin damit sehr zufrieden, bis darauf, dass ich immer...
28.08.2017 17:59:24
Thread-ID: 1577114
3 Beiträge
VBA erzeugte Objekte vom Speicher lösen
Sebastian

Hi zusammen,
der Code zeigt wie ich mir Exceldateien (Reports) aus dem Intranet ziehe. Mein Problem ist, wenn ich das Makro mehrfach hintereinander ausführe, erhalte ich keine aktuellen Daten, sondern die der ersten Abfrage. Ich vermute das Objekt wird nicht überschrieben.
Ich danke Euc...
25.02.2021 08:11:44
Thread-ID: 1815722
2 Beiträge
Txt - Text suchen und ersetzen VBA
Stevie

Hie zusammen,
ich hoffe mir kann hier jemand helfen, ich habe einen Code aus dem Internet (oder sogar von der Seite hier) und den muss ich leider ein bisschen anpassen. Der Code sucht in einer Textdatei nach einer bestimmten Zeichenfolge STxtA und ersetzt diesen Text durch STxtB. Soweit so...
30.10.2008 14:09:28
Thread-ID: 1020573
2 Beiträge
VBA Outlook Daten in Excel eintragen
Simon

Hallo,
ich fange gerade mit Outlook VBA und Excel ein. Möchte eine E-Mail von Outlook nach Excel übertragen.
Das klappt soweit auch ganz gut, bis auf ein paar Einschränkungen.
Erstmal mein Code:
Option Explicit
Sub CopyToExcel() Dim xlApp As Excel.Application Dim xlWB As Ex...
28.05.2015 18:11:32
Thread-ID: 1428199
2 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum