Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
16.10.2025 17:40:39
Rabattstafel
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
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufzeitoptimierung einer "For"-Schleife

Forumthread: Laufzeitoptimierung einer "For"-Schleife

Laufzeitoptimierung einer "For"-Schleife
18.08.2005 15:54:36
Tobias
Hallo zusammen,
ich habe zwei große Tabellen mit mehreren tausend Einträgen. Tabelle1 enthält Artikelnummern, Tabelle2 enthält Artikelnummern und dazugehörige Preise.
Mit einem Makro will ich die Preise für die Artikelnummern in Tabelle1 übernehmen.
Wenn ich mit Hilfe von zwei verschachtelten For-next-schleifen alle Einträge von Tabelle1 mit allen Einträgen von Tabelle2 vergleiche dauert das viel zu lange.
Habt Ihr eine Idee für eine schnellere Variante?
Danke im voraus,
Tobias
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitoptimierung einer "For"-Schleife
18.08.2005 15:56:08
Unbekannter
Zeig mal dein Makro.
Gruß UN1
AW: Laufzeitoptimierung einer "For"-Schleife
18.08.2005 16:04:11
Tobias
Hier ist der Code.
For A = 1 To 9999
For B = 1 To 9999
Worksheets(1).Cells(A, 1).Value = Worksheets(2).Cells(B, 1).Value Then

Worksheets(2).Cells(B, 2).Select
Selection.Copy
Workheets(1).Cells(A, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Exit For
End If
Next B
Next A
Anzeige
AW: Laufzeitoptimierung einer "For"-Schleife
18.08.2005 16:15:38
Unbekannter
Probier mal das.
For A = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For B = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Worksheets(1).Cells(A, 1).Value = Worksheets(2).Cells(B, 1).Value Then
Worksheets(2).Cells(B, 2).Copy
Workheets(1).Cells(A, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Exit For
End If
Next B
Next A
Gruß UN1
Anzeige
AW: Laufzeitoptimierung einer "For"-Schleife
18.08.2005 16:33:07
Tobias
Danke UN1!
In jeder Tabelle stehen etwa 8500 bis 9000 Zeilen. Somit reduziert sich die Laufzeit nur ein wenig.
Gibt es vielleicht einen anderen Schleifentyp, von dem bekannt ist, daß er schneller läuft?
Ansonsten muß ich wohl die lange Laufzeit in Kauf nehmen.
Gruß,
Tobias
AW: Laufzeitoptimierung einer "For"-Schleife
18.08.2005 16:34:58
Unbekannter
Das Problem ist die doppel Schleife die dauer sehr lange.Erkläre mir noch mal genau was das Makro machen soll vielleicht finden wir ne bessere Lösung.
Anzeige
AW: Laufzeitoptimierung einer "For"-Schleife
18.08.2005 16:42:38
Tobias
Die Problemstellung ist folgendermaßen:
Es gibt zwei große Tabellen: Tabelle1 enthält Artikelnummern, Tabelle2 enthält Artikelnummern und dazugehörige Preise.
Für alle Artikelnummer aus Tabelle1 sollen die Preise aus Tabelle2 geholt werden.
Gruß,
Tobias
AW: Laufzeitoptimierung einer "For"-Schleife
18.08.2005 16:35:07
Nepumuk
Hi Tobias,
so sollte es in akzeptabler Zeit fertig sein:
Public Sub test()
    Dim lngRow1 As Long, lngRow2 As Long
    Dim varArray1 As Variant, varArray2 As Variant
    With Worksheets(1)
        varArray1 = .Range(.Cells(1, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 2))
    End With
    With Worksheets(2)
        varArray2 = .Range(.Cells(1, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 2))
    End With
    For lngRow1 = 1 To UBound(varArray1)
        For lngRow2 = 1 To UBound(varArray2)
            If varArray1(lngRow1, 1) = varArray2(lngRow2, 1) Then
                varArray1(lngRow1, 2) = varArray2(lngRow2, 2)
                Exit For
            End If
        Next
    Next
    With Worksheets(1)
        .Range(.Cells(1, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 2)) = varArray1
    End With
End Sub
Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
AW: Laufzeitoptimierung einer "For"-Schleife
18.08.2005 16:47:39
Tobias
danke Nepumuk!
Könntest Du mir ganz kurz erklären wie das Makro funktioniert? Enthalten die Arrays den Inhalt von den 2 Tabellenblättern? Warum ist das Makro schneller?
Ich bin gerade dabei, den Code anzupassen.
Gruß,
Tobias
AW: Laufzeitoptimierung einer "For"-Schleife
18.08.2005 16:51:15
Nepumuk
Hi Tobias,
das Makro macht nichts anderes wie deines, nur in Arrays. Operationen darin sind gut 100 mal schneller wie die in Tabellen.
Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
AW: Laufzeitoptimierung einer "For"-Schleife
18.08.2005 17:27:09
Tobias
Vielen Dank! Läuft tatsächlich viel schneller!
Gruß,
Tobias
;

Forumthreads zu verwandten Themen

Aus Schleife wenn Zelle einen Rahmen hat???
TOM

Guten Morgen zusammen
Ich habs probiert aber irgendwie habe ich noch einen Denkfehler oder was auch immer......grrrrrrr!?
Möchte gerne eine Do Schlaufe die durchläuft bis die Aktive Zelle unten einen Rahmen hat.
Do While ActiveCell.Borders(xlEdgeBottom).LineStyle = xlContinuous
...
27.08.2008 11:12:00
Thread-ID: 1005013
3 Beiträge
eine Schleife in Webabfrage
mehmet

Hallo Forum,
ich habe mit dem Macrorecorder Webabfrage aufgezeichnet.
Diese habe ich ergänst mit der URL Adresse und Zellinhalte.
Hier die Aufzeichnung bzw. überarbeitete Version:
Sub TAF1() derLink = "http://www.dieseite.de/main. _ htm?tp=sa&flag=" Sheets("Tabelle1").Sele...
29.08.2008 09:30:05
Thread-ID: 1005675
2 Beiträge
Schleife um ein Makro bauen
Matthias

Hallo zusammen,
ich habe folgendes Makro, das per vlookup auf ein zweites Tabellenblatt greift:
Sub importSortKey() Range("A2").select ActiveCell.FormulaR1C1 = _ "=IF(RC[1]="""","""",VLOOKUP(RC[1],Sortierschlüssel!C:C[1],2))" End Sub
Zur Formel: RC[1] = Zelle B2;
Ich würde d...
01.10.2008 11:26:00
Thread-ID: 1013562
7 Beiträge
Variable in Forschleife
Jens

Hallo Ihr,
ich habe folgendes Problem:
Ich habe 9 Variablen definiert und diese sind mit Werten belegt. Jetzt möchte ich diese innerhalb einer Schleife einzelnen Zellen zuweisen. Geht das?
Beispiel für 3 Variablen:
Dim var1 As Integer
Dim var2 As Integer
Dim var3 As Inte...
08.10.2008 13:49:00
Thread-ID: 1015052
5 Beiträge
Schleife einbauen und variabler Tabellenname
Markus

Hallo zusammen,
nach langer Suche bin ich auf folgendes funkionierendes Makro gestoßen. Diese Makro möchte ich gerne ein wenig anpassen und dazu brauche ichEure Hilfe!
Sub PDF_Druck() Dim strAktuellerDrucker As String strAktuellerDrucker = Application.ActivePrinter Worksheets("Tabelle...
16.10.2008 19:25:00
Thread-ID: 1016959
3 Beiträge
Makro - einfache VBA Schleife für Excel
pc-doc@k-u-p.de

Hallo VBA MAkro Profis,
programmiere fast nie in VBA mehr Web js, php/mysql,
und brauche eine einfache VBA Schleife für Excel:
Ich möchte in mehreren Registerblättern einer Arbeitsmappe in der
Spalte D Zeile für Zeile checken ob
ein Wert in der Zelle steht
und wenn...
20.10.2008 11:51:00
Thread-ID: 1017619
8 Beiträge
Schleife in Formel
Jochen

Hallo,
kann ich mit einer Formel eine Schleife laufen lassen?
Meine Tabelle sieht etwa so aus:
Pos. Stückzahl
1 10
2 15
3
4 2
5 3
6
7
8 10
9 11
10
11
12 12
Meinergeb...
11.11.2008 14:25:00
Thread-ID: 1023549
9 Beiträge
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
Anzeige
Gesamtwert in Zell über Multiplikationsschleife...
Jessi

Hallo zusammen,
habe wieder mal eine Frage:
Ich habe eine Tabelle in der Spalte X und Y, ab der Zeile 5 Werte multipliziert werden und die Zeilen
5 bis einschließlich 88 und anschließend ab Zeile 160 bis einschließlich die Zeile 182 aufsummiert werden. Wie bekomme ich das am geschic...
10.12.2008 14:51:00
Thread-ID: 1031705
4 Beiträge
Mittelwerte bilden in Schleifen
WMüller

Hallo zusammen,
ich habe das Archiv durchgesehen, konnte jedoch leider keine passende Lösung für mein Problem finden. Da ich ein Anfänger im Umgang mit VBA bin, würde ich mich über ein Feedback sehr freuen. Ich denke, dass Problem ist eigentlich nicht zu schwierig, ich habe "lediglich" Prob...
14.01.2009 15:01:21
Thread-ID: 1039672
6 Beiträge
Anzeige
Schleife integer
Michael

Hallo!
Wenn in der Zelle E3:E40 ein Wert auftaucht der nicht einer Zahl entspricht, soll Ändern erscheinen.
Gruß Michael
28.01.2009 18:01:18
Thread-ID: 1044658
12 Beiträge
Wie kann ich hier eine Schleife ...
Thomas

Hi Profis,
Wie kann ich hier eine Schleife einbauen sodas das Passwort nur einmal eingegeben wird und die Tabelle somit für einen Zeitraum von ca 60minuten freigeben wird. Den Code hab ich hier aus dem Archiv und an meine Bedürfnisse mit basteln angepasst. Er überwacht einen Zellbereich und...
02.02.2009 11:29:00
Thread-ID: 1046127
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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