select vermeiden
21.09.2015 20:44:17
Peter
ich versuche mein Code zu beschleunigen. Ich habe gelesen, dass man den Select-Befehl vermeiden sollte. Wie könnte mann den folgenden Teil meines Codes verändern damit er schneller läuft?
.
.
.
Range("B23:I1000").Select
Selection.Delete Shift:=xlUp
'---------------------------------------------------------------------------------
Sheets("Umsatz_Absatz_alle").Select
Rows("8:8").Select
Selection.AutoFilter
.lz = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row 'letzte Zeile bestimmen
.ls = Cells(6, Columns.Count).End(xlToLeft).Column 'letzte Spalte bestimmen
x = 0
For y = 7 To lz
If Cells(y, 2) = "" And Cells(y, 3) = "" Then
Exit For
Else
If Cells(y, 2) = Kundennummer And Cells(y, 5) >= Datumstart And Cells(y, 5) arrp(1) = Cells(y, 5) 'Datum
arrp(2) = Cells(y, 8) 'Produkt
arrp(3) = Cells(y, 12) 'Menge
arrp(4) = Cells(y, 13) 'Umsatz
lzl = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
Cells(lzl + 1, 2) = arrp(1) 'Datum
Cells(lzl + 1, 3) = arrp(2) 'Produkt
Cells(lzl + 1, 4) = arrp(3) 'Menge
Cells(lzl + 1, 5) = arrp(4) 'Umsatz
On Error GoTo weiter
Cells(lzl + 1, 6) = arrp(4) / arrp(3) 'Durchschnittspreis
weiter:
End With
End If
End If
Sheets("Umsatz_Absatz_alle").Select
Next y
.
.
.
Vielen Dank für Eure Antworten,
LG, Peter