VBA Schleife optimieren
15.03.2006 09:13:01
Pascal
seite dem Wechsel auf Excel 2003 dauern eine Makros in einer älteren umfangreichen Anwendung viel länger (von wenige Sec. / Min. auf Stunden)
Nun bin ich kein VBA Profi und ich habe mir das Makro damals so dahin gestrickt. Kann mir hier jemand helfen oder kennt jemand eine Seite, die Probleme in VBA von XLS 2003 kennt?
Im Debug scheint er in folgender Schleife sehr langsam zu durchlaufen:
Sheets("Hilfstabelle_AffCluster3").Range("a1:c64000").ClearContents
d = Sheets("Steckbrief").Cells(11, 2)
i = 6
j = 1
Do While a 0
i = i + 1
a = Sheets("Affinitätenliste 3").Cells(i, 1)
b = Sheets("Affinitätenliste 3").Cells(i, 3)
c = Sheets("Affinitätenliste 3").Cells(i, 5)
If (a = d Or b = d Or c = d) Then
Sheets("Hilfstabelle_AffCluster3").Cells(j, 1) = a
Sheets("Hilfstabelle_AffCluster3").Cells(j, 2) = b
Sheets("Hilfstabelle_AffCluster3").Cells(j, 3) = c
j = j + 1
End If
Ich kann sonst auch noch mal den gesamten Code posten.
Besten Dank für Eure Hilfe,
Pascal