Bei Modul - Ausführung zu langsam
10.02.2004 12:27:09
Y. Housein
habe folgendes Problem mit mein Code. Wenn ich das u.a. Code ausführe, dauert es eine Ewigkeit. Besteht die Möglichkeit das u.a. Code zu optimieren?
For x = 26 To 55
Range("E" & x).Select
Artikelname$ = ActiveCell.Value
Range("d" & x).Select
Menge = ActiveCell.Value
Range("E" & x).Select
Sheets("artikel").Select
Range("B9").Select
For A = 10 To ActiveCell.SpecialCells(xlLastCell).Row + 1
Range("B" & A).Select
Artikelname1$ = ActiveCell.Value
If Artikelname1$ = Artikelname$ Then
Range("H" & A).Select
Bestand = ActiveCell.Value - Menge
ActiveCell.Value = Bestand
Range("B" & A).Select
Exit For
End If
Next A
Sheets("Rechnung").Select
Range("E" & x).Select
Next x
For y = 64 To 69
Range("E" & y).Select
Artikelname$ = ActiveCell.Value
Range("d" & y).Select
Menge = ActiveCell.Value
Range("E" & y).Select
Gruß
Yilmaz