Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bei Modul - Ausführung zu langsam

Bei Modul - Ausführung zu langsam
10.02.2004 12:27:09
Y. Housein
Hallo Leute,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Modul - Ausführung zu langsam
10.02.2004 12:28:25
Harald Kapp
Hallo Yilmaz,
probier mal Folgendes:
Am Anfang:
Application.ScreenUpdating = False
Dann Dein Code...
Am Ende:
Application.ScreenUpdating = True
Gruß Harald
AW: vermeide .select
10.02.2004 12:38:20
Galenzo
Hallo,
vermeide das ganze "hin-und her-"selektieren.
Ersetze z.B.
Range("E" & x).Select
Artikelname$ = ActiveCell.Value
durch
Artikelname$ = Range("E" & x).Value
mfg
AW: vermeide .select
10.02.2004 13:22:45
Y. Housein
Hallo Galenzo,
ich Danke dir für dein Tipp. Hat super geklappt. Schönen Tag noch.
Gruß
Yilmaz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige