habe von martin beck folgenden code bekommen
leider hatte ich vergessen zu schreiben, das ich unterschiedliche dateien und nicht tabellen habe
wie ändere ich denn jetzt das auf den code
Sub Suchen_mit_Sverweis2()
For i = 1 To 100
Cells(i, 2) = Application.WorksheetFunction.VLookup(Cells(i, 1), Worksheets("Tabelle1").Range("A1:B50000"), 2, 0)
Next i
MsgBox x
End Sub
die ursprüngliche frage war
hallo gemeinschaft
habe ein problem
ich habe eine quelldatei (sie besteht aus einem deutschen wort und einer dazugehörigen übersetzung)
und ich habe eine zieldatei mit nur dem deutschen wort.
nun habe ich ein programm geschrieben, welches sich das erster wort der zieldatei nimmt und damit in der quelldatei nach dem gleichen sucht, hat es dieses gefunde, dann nimmt er die übersetung und kopiert es in die nebenliegende zelle in der zieldatei. - klappt
jetzt mein problem
die quelldatei ist sehr gross geworden und das sequentielle suche in der quelldatei dauert sehr lange - kennt ihr vielleicht einen algorythmus der das beschleunigt
:-) jörg