find Aufruf auf dynamische Range
27.08.2003 11:56:05
Alex
ich hab da ein kleines Problem,bzw das Anliegen ein bestehendes Makro zu beschleunigen.
erstmal mein Code:
Sub AllIn_Rohstoffpreise_GLOBAL()
Dim artnr As String
Sheets("Tabelle1").Select
Range("a22").Select
Do Until (ActiveCell = "EOF")
artnr = ActiveCell
preis = Selection.offSet(0, 4)
Sheets("Tabelle2").Select
Range("g:g,dc:dc").Select
With Selection
Set found = .Find(what:=artnr, lookat:=xlWhole)
foundfirst = found.Address
If Not found Is Nothing Then
Do
found.Activate
found.offSet(0, 5) = preis
Set found = .FindNext(found)
Loop While found.Address <> foundfirst
Else
End With
End If
End With
Sheets("Tabelle1").Select
Selection.offSet(1, 0).Select
Loop
End Sub
Folgendes: in einer Tabelle ( 65000 Zeilen und ein paar Zerquetschte mal 2 Spalten) enthalten sich wiederholende Nummern(insgesamt ca 360 unterschiedliche).Nun würde ich gern bereits abgearbeitete Nummern aus der Range herrausnehmen. Das sollte am besten gleich nach dem .find(what:=artnr,lookat:=xlWhole) Aufruf geschehen.
Momentan dauert das ganze 42 Minuten auf einem P4 2,2.
vielen Dank im Vorraus,Gruß Alex