Code Optimierung mit Array?
31.08.2017 17:33:56
Guggus
Ich habe neulich einen tollen Code hier erhalten, allerdings ist er bei einer grösseren Anzahl sehr langsam und es dauert cirka 1 Stunde bis das Prozedur beendet ist. Nun weiss ich (dank dem Forum) das mit einem Array alles schnell und einfach zu erledigen wäre.
Wäre uuuu heimlich dankbar um ein paar Inputs :)
Option Explicit
Sub TestIt()
Dim wksDst As Worksheet
Dim strSize() As String
Dim i As Long, j As Long, k As Long, p As Long
Set wksDst = ThisWorkbook.Sheets("Sheet3")
wksDst.Cells.Clear
With ThisWorkbook.Sheets("Sheet1")
For i = 8 To .Cells(8, 9).End(xlDown).Row
ReDim Preserve strSize(j)
strSize(j) = .Cells(i, 9)
j = j + 1
Next
k = 2
For i = 8 To .Cells(8, 2).End(xlDown).Row
If .Cells(i, 2) > 0 Then
wksDst.Cells(k, 1).Resize(, 2) = .Cells(i, 1).Resize(, 2).Value
For p = 0 To UBound(strSize)
For j = 1 To .Cells(i, 2)
wksDst.Cells(k, 3) = strSize(p)
k = k + 1
Next
Next
End If
Next
End With
Set wksDst = Nothing
End Sub
Anzeige
