kann mir jemand bei ARRAY helfen?
25.12.2004 20:19:07
Edwin
ich habe mein Zeit-Problem leider noch immer.
Folgender Code benötigt für die Ausführung 51 Sekunden.
Nun habe ich bei VB-Fun.de einen Tipp gelesen, der wohl auf mich passen würde, aber mit meinen absoluten Anfängerkenntnissen, kann ich den Tipp nicht umsetzen.
Wäre jemand so lieb und würde mir meinen Code entsprechend umschreiben?
Hier der Tipp:
http://www.vb-fun.de/cgi-bin/loadframe.pl?ID=vb/tipps/tip0414.shtml
Hier mein Code:
Sub ProduktionEintragen()
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Worksheets("Wochenbericht")
Set ws2 = Worksheets("Produktion")
anz = ws2.Cells(65536, 1).End(xlUp).Row
z = 8
ws1.Range("F8:K46").ClearContents
If ws1.Cells(2, 8) <> "" Then
For Each c In ws2.Range("A2:A" & anz)
If c.Value Like ws1.Cells(2, 5) & "-" & Year(ws1.Cells(1, 19)) & "-" & ws1.Cells(2, 8) & "*" Then
zeile = c.Row
ws1.Cells(z, 6) = ws2.Cells(zeile, 2)
ws1.Cells(z, 7) = ws2.Cells(zeile, 3)
ws1.Cells(z, 8) = ws2.Cells(zeile, 4)
ws1.Cells(z, 9) = ws2.Cells(zeile, 5)
ws1.Cells(z, 10) = ws2.Cells(zeile, 6)
ws1.Cells(z, 11) = ws2.Cells(zeile, 7)
z = z + 1
End If
Next
End If
End Sub
Vielen Dank und frohe Weihnachten!
Gruß
Edwin