Sehr große Bereiche vergleichen und Daten zuspielen?

24/11/2008 - 09:51 von thomas müller | Report spam
Hallo,

ich muss aus 2 Tabellen sehr große Bereiche miteinander vergleichen.

Auf meinem Zielblatt "Data" habe ich 103306 Kundennummern. Auf Blatt
"Vorlage" habe ich 18176 dieser Kundennummern sowie div. Daten in
anderen Spalten.

Jetzt möchte ich die Kundennummern von "Vorlagen" die in "Data"
enthalten sind suchen und dann aus "Vorlagen" zu jeder Kundennummer noch
eine Datenspalte in "Data" zukopieren.

Habe folgenden Code genommen, der auch funktioniert. Allerdings bei der
Menge sehr langsam.

Sub DatenCopy2()
ScreenUpdating = False

For a = 2 To 103306 'Suchzeilen
Suchwert = Worksheets("Data").Range("a" & a).Value ' Suchwert ist
Begriff nach dem gesucht wird
With Worksheets("Vorlage").Range("a2:a18176") ' Sheet in dem gesucht
und in welchem Bereich
Set c = .Find(Suchwert)
If Not c Is Nothing Then
Zieladresse = c.Address
Zieldaten Worksheets("Vorlage").Range(Zieladresse).Offset(columnOffset:=0).Value
'Offset um 3 führt zu Spalte D
Worksheets("Data").Range("v" & a).Value = Zieldaten
End If
End With
Next a

MsgBox Fertig

End Sub




Hat jemand eine Idee, wie ich es noch beschleunigen kann?

danke

thomas
 

Lesen sie die antworten

#1 Thomas Kühn
24/11/2008 - 10:55 | Warnen spam
Hallo Namensvetter,



Hat jemand eine Idee, wie ich es noch beschleunigen kann?




Bei der Datenmenge solltest Du vielleicht mal über eine Datenbank
nachdenken.

Gruß Thomas

http://www.thomas-kuehn.de

Ähnliche fragen