Re: Code optimieren - Kategorisieren -
04.06.2003 16:53:28
Martin Bolleter
Hallo Hans-Jörgmal so als Idee:
lade deine Tabelle in eine Variant-Variable (gibt ein 2-dim Feld) und mache die ganzen Loops in der Variablen, also im Speicher. Das ist erfahrungsgemäss ca 100x schneller.
Also zB:
angenommen deine Daten stehen in Spalten H bis I, die Kategorie soll in Spalte J. Zuerst das einlesen (geht sehr schnell, auch bei zig-tausend Zeilen):
Dim Feld as Variant
feld = range(cells(1,8),cells(30000,10))
damit hast du alle daten des Bereichs H1 bis J300000 in dieser Variablen, das du mit Feld(x,y) ansprechen kannst. Speichere die gefundenen Kategorien in der 3. Spalte des Feldes, zB
Feld(r,3) = CCode.cells(r,1)
am ende schreibst du das Feld wieder mit einem Befehl in die Tabelle zurück:
range(cells(1,8),cells(30000,10)) = Feld
Wenn du's genauer brauchst, melde dich. Kann aber erst morgen wieder, muss jetzt weg.
Gruss
Martin