Code wird immer langsamer

Sub test() Dim a%, b%, c%, s&, x&, Z, t! t = Timer Set Z = CreateObject("scripting.dictionary") Cells(4, 1).CurrentRegion.Clear For a = 1 To 100 For b = 1 To 100 For c = 1 To 100 x = x + 1 Z(x) = a & ";" & b & ";" & c If x = 1000 Then Debug.Print Timer - t t = Timer s = s + 1 x = 0 Cells(4, s).Resize(Z.Count) = WorksheetFunction.Transpose(Z.items) End If Next c Next b Next a End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim a%, b%, c%, s&, x&, Z, t! t = Timer Set Z = CreateObject("scripting.dictionary") Cells(4, 1).CurrentRegion.Clear For a = 1 To 100 For b = 1 To 100 For c = 1 To 100 x = x + 1 Z(x) = a & ";" & b & ";" & c If x = 1000 Then Debug.Print Timer - t t = Timer s = s + 1 x = 0 'Cells(4, s).Resize(Z.Count) = WorksheetFunction.Transpose(Z.items) Cells(4, s) = WorksheetFunction.Transpose(Z.items) End If Next c Next b Next a End Sub

Sub test() Dim a%, b%, c%, s&, x&, Z, t! Dim Erg(1 To 1000, 1 To 1000) t = Timer s = 1 Cells(4, 1).CurrentRegion.Clear For a = 1 To 100 For b = 1 To 100 For c = 1 To 100 x = x + 1 Erg(x, s) = a & ";" & b & ";" & c If x = 1000 Then s = s + 1 x = 0 End If Next c Next b Next a Cells(4, 1).Resize(UBound(Erg, 1), UBound(Erg, 2)).Value = Erg End Sub

Sub test() Dim a%, b%, c%, s&, x&, Z, t! t = Timer Set Z = CreateObject("scripting.dictionary") Cells(4, 1).CurrentRegion.Clear For a = 1 To 10 For b = 1 To 100 For c = 1 To 100 x = x + 1 Z(x) = a & ";" & b & ";" & c If x = 1000 Then s = s + 1 x = 0 Cells(4, s).Resize(Z.Count) = WorksheetFunction.Transpose(Z.items) End If Next c Next b Next a Debug.Print Timer - t End Sub

Sub test1() Dim a%, b%, c%, s&, x&, Z, t! Dim erg(1 To 1000, 1 To 1) t = Timer Set Z = CreateObject("scripting.dictionary") Cells(4, 1).CurrentRegion.Clear For a = 1 To 10 For b = 1 To 100 For c = 1 To 100 x = x + 1 erg(x, 1) = a & ";" & b & ";" & c If x = 1000 Then s = s + 1 x = 0 Cells(4, s).Resize(1000, 1).Value = erg End If Next c Next b Next a Debug.Print Timer - t End Sub

Sub testDictionary() Dim a%, b%, c%, s&, x&, Z, t! t = Timer Set Z = CreateObject("scripting.dictionary") Cells(4, 1).CurrentRegion.Clear For a = 1 To 100 For b = 1 To 100 For c = 1 To 100 x = x + 1 Z(x) = a & ";" & b & ";" & c If x = 10000 Then Debug.Print Timer - t t = Timer s = s + 1 x = 0 Cells(4, s).Resize(Z.Count) = WorksheetFunction.Transpose(Z.items) 'Z.RemoveAll (hat keinerlei Effekt, sondern verlangsamt nur) End If Next c Next b Next a End Sub

Sub testArray() Dim a%, b%, c%, s&, x&, t! Dim erg(1 To 10000, 1 To 1) t = Timer Cells(4, 1).CurrentRegion.Clear For a = 1 To 100 For b = 1 To 100 For c = 1 To 100 x = x + 1 erg(x, 1) = a & ";" & b & ";" & c If x = 10000 Then Debug.Print Timer - t t = Timer s = s + 1 x = 0 Cells(4, s).Resize(10000, 1).Value = erg End If Next c Next b Next a End Sub

Option Explicit Sub testDictionary() Dim a%, b%, c%, s&, x&, Z, t! t = Timer Set Z = CreateObject("scripting.dictionary") Cells(4, 1).CurrentRegion.Clear For a = 1 To 100 For b = 1 To 100 For c = 1 To 100 x = x + 1 Z(x) = a & ";" & b & ";" & c If x = 10000 Then Debug.Print Timer - t t = Timer s = s + 1 x = 0 'MsgBox s ' 1 'MsgBox Cells(4, s).Resize(Z.Count).Address ' a4:A10003 'MsgBox Z.Count '10000 'MsgBox TypeName(Z.items) ' variant() 'MsgBox Z.items.Count 'Fehler Object erforderlich 'MsgBox TypeName(WorksheetFunction.Transpose(Z.items)) Cells(4, s).Resize(Z.Count) = WorksheetFunction.Transpose(Z.items) 'Z.RemoveAll (hat keinerlei Effekt, sondern verlangsamt nur) End If Next c Next b Next a End Sub

Hallo Jenny,
mir ist da einiges unklar, übrigens kenne ich scripting.dictionary erst seit ich deinen Beitrag sah :-)
Ich bin also genau der Fachmann dafür *lächel*
Aber, vielleicht hast du es nicht bekommen, aufgrund deiner Anfrage habe ich selbst hier nachgefragt was denn das fürn Kram ist dieses scripting dictonary, daraufhin nannte mir Renee gleich 3 Links wo es erklärt wird, schau mal hier im Forum, wirste leicht finden weil das Wort im Betreff vorkommt.
Und durchblicken tue ich schon längst nicht mehr, durch ausprobieren kam ich darauf daß es mit 1000 in deinem Code klappt, mit 10000 nicht (bei XL2000)
und das mit z.items.count verstehe ich genausowenig u.v.m.
Aber ich habe die Links noch nicht aufmerksam durchgelesen, ist mir zuviel Englisch.
Naja, wenn ich oder du auf den angegeben Links nix entdecken stellt halt einer eine neue Anfrage zu der Funktion, bezogen auf die seltsamen Fehler.
Gruß
Reinhard

Hallo Jenny,
ich kam zwar durch einfaches Ausprobieren auch auf 5461 als Maximalanzahl, aber konnte mir dies krumme Zahl genau wie die 21,xx de ich auch hatte, obwohl was völlig andere Berechnungen durchführte, nicht erklären.
Leider kam ich nicht auf die Idee mal nach diesen 5461 zu googeln, may be ich wäre schneller gewesen.
So dauerte es dann doch lange bis ich zur Lösung kam warum es zum Fehler kommt.
Gefunden auf www.xlam.ch steht die Aufklärung im Anhang.
Da es vielleicht den einen oder anderen interessieren könnte wegen Transpose, stelle ich die Frage auf noch offen. Betreff habe ich wegen dem Archiv angepasst.
Also bitte diesen diesen Beitrag erst in 1-2 Tagen "zumachen" oder als noch "offen" ins Archiv wandern lassen. Danke.
@Jenny, du hast ja einen neuen Thread laufen, also störts dich sicher nicht, wenn ich hier dies "anhänge", abgesehen davon daß du ja auch wissen wolltest warum da Fehler 13 kam.
Achja, der Fehler kommt bei XL2000, bei höheren Versionen weiß ich nicht was da wann geschieht.
Gruß
Reinhard
Beitrag stammt aus der Rätselecke von xlam.ch:
Wieso ist die maximale Anzahl Elemente eines Arrays in der Microsoft Excel-Referenz mit 5'461 Elementen angeben? Weshalb nicht eine häufig vorkommende Zahl wie zum Beispiel 4'096?
Antwort:
Meistens besitzen Limitationen eine häufig vorkommende Zahl wie zum Beispiel 256 (bzw. 255), 1'024, 32'768 (bzw. 32'767) oder 65'536, also alles Werte, die durch 256 ohne Rest teilbar sind. Zum Speichern von Zahlen von 0 bis 255 (256 verschiedene Zahlen) wird 1 Byte (8 Bit) benötigt. Zum Speichern von Zahlen von 0 bis 65'535 (65'536 verschiedene Zahlen) werden 2 Bytes benötigt (256 * 256 = 65'536). Teilt man jedoch die Zahl 5'461 durch 256, so erhält man 21.33203125, d.h. einen Wert, der überhaupt nicht zu den sonst üblichen Zahlen passt. Die Limitation von maximal 5'461 Array-Elementen besitzt einen anderen Grund:
Array-Definitionen werden in Microsoft Excel in zwei je 64 KB grossen Speichersegmenten abgelegt. Ein 64 KB Speichersegment ist in Bytes ausgedrückt 65'536 Bytes gross (1 KB = 1'024 Bytes). Da Arrayelement-Werte als 24 Bit-Wert gespeichert werden, können zwei 64 KB Speichersegmente maximal 5'461 Elemente enthalten (2 * 65'536 / 24 = 5'461.33 = 5'461).

Beliebteste Forumthreads (12 Monate)

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread