Code beschleunigen
21.02.2008 09:02:00
chris
guten morgen.
Habe eine frage würdemich sehr über Hilfe freuen...
Habe einen VBA code der ziemlich lange läuft bis zu 10 Minuten.
Seht ihr an diesem Code mit eurem fachmänischen Auge eine möglichkeit das der code schneller läuft =?
Würde mich sehr freuen.
Habe schon am anfang des subs der dieses
Sub aufruft stehen:
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
bringt aber nicht so viel.
Danke vielmals für eure Hilfe gruß Chris
Sub daten_eintragen()
On Error Resume Next
Application.ScreenUpdating = False
'hier Code zum einfügen daten in tabelle
anzwerte_in_datenbank = obj_datenbank.Worksheets("daten" & Version).Cells(obj_datenbank. _
Worksheets("daten" & Version).Rows.Count, 1).End(xlUp).Row
For z = 2 To anzwerte_in_datenbank
For zz = 0 To UBound(werte, 2)
If UCase(obj_datenbank.Worksheets("daten" & Version).Cells(z, 1)) = UCase(werte(0, zz)) _
Then 'zum prüfen ob aktuellen nummer gleich ist mit daten im array
For s = A_s To A_e
w = s - 100
obj_datenbank.Worksheets("daten" & Version).Cells(z, s) = werte(w, zz)
Next
For s = U_s To U_e
w = s - 102
obj_datenbank.Worksheets("daten" & Version).Cells(z, s) = werte(w, zz)
Next
Exit For
Else
'Änderungsnummer nicht gleich.
End If
Next zz
Next z
On Error GoTo 0
Application.ScreenUpdating = True
End Sub