Find
01.12.2007 23:57:00
Eugen
Windows XP Sp2, office 2003 prof
Ich habe in VBA sechs verschachtelte For Next Schleifen dessen Werte mit QuickSort sortiert werden und anschließend zusammen als Text z.B.1,3,6,32,38,45 definiert werden.
TXT = x1 & , & x2 & , & x3 & , & x4 & , & x5 & , & x6
Dann wird geprüft ob TXT in der Tabelle schon vorhanden ist.
Function Suchen(ByRef TXT As String) As Boolean
Dim c
With Liste.Range("a1:iv65530")
Set c = .Find(TXT, LookIn:=xlValues)
If c Is Nothing Then
Cells(Zeile + 1, Spalte) = TXT
End If
End With
End Function
'_________Dann geht es in der Schleife weiter
Das klappt zum Anfang ganz gut, aber mit zunehmendem Datenvolumen findet VBA einen bereits eingetragenen Text nicht und tragt denselben Text noch einmal ein.
Ist es möglich das die Excel-Tabelle bei großen Datenvolumen die eingetragenen Werte zu langsam registriert als VBA sie verarbeitetet ?
Oder mache ich etwas falsch?
Zur Zeit geht es um 10087000 Zellen !!
Danke für eure Hilfe
Eugen