Code beschleunigen wegen array
10.04.2008 12:23:59
chris
habe seid gestern zu kämpfen mit meinem VBA.
Jetzt habe ich es soweit ganz gut.
Aber noch eine kleine frage.
Habe einen code den ich hier gerne Posten möchte.
Und eine frage dazu.Gibt es eine möglichkeit diesen zu beschleunigen ?
Bei mir dauert er doch ca 2 sekunden.
Wäre superDanke und schönen Tag !
If t_btn = True Then
For i = 0 To UBound(ListArray1)
For ii = 1 To x1 - 2
If UCase(arrTmp1(welche_suche, ii)) = UCase(ListArray1(i, 0)) Then
If InStr(UCase(arrTmp1(welche_suche, ii)), "P") = 0 Then
'arrTmp2(n, 0) = UCase(ListArray1(1, i))
arrTmp2(n, 0) = UCase(arrTmp1(welche_suche, ii))
arrTmp2(n, 1) = UCase(arrTmp1(106, ii))
arrTmp2(n, 2) = UCase(arrTmp1(108, ii))
n = n + 1
Exit For
Else
ii = 0
Exit For
End If
End If
Next
Next
End If
Anzeige