Werner, Hajo, Paulchen
10.05.2005 08:18:54
Ceci
Hallo zusammen,
Sorry, hat etwas länger gedauert,ich habe alle 3 Codes mal getestet.
Die durchlaufzeit ist abhängig von der Anzahl der Zeilen, die durchlaufen werden müssen.
Obwohl ich die Datenmenge drastisch erhöht habe, zeigen alle 3 MsgBoxen noch die gleichen Werte an, obwohl die Durchlaufzeit offensichtlich angestiegen ist.
Der Programmdurchlauf benötigt wenn ich die Zeit stoppe 12s.
Die MsgBox von Hajo zeigt immer 4s an.
Die MsgBox von Paulchen und Werner immer 0:00s.
Mein Code sieht folgendermaßen aus:
Private Sub CB_neue_Daten_Click()
'Code 1
Dim DaWert As Date
Dim LoI As Long
Dim LoJ As Long
DaWert = Time
For LoI = 1 To 2
LoJ = LoJ + 1
Application.Wait Now + TimeSerial(0, 0, 2)
Next LoI
MsgBox CDate(Time - DaWert)
'Code 2
Dim DatAnfang As Date
DatAnfang = Now
'hier Dein Code
MsgBox Format(Now - DatAnfang, "hh:mm:ss"), , "Makro-Laufzeit"
'Code 3
Dim Startwert As Date
Dim Endwert As Date
Startwert = Time
'Hier Dein Startmakro
Endwert = Time
MsgBox CDate(Endwert - Startwert)
'Aufruf aus Modul Prozedur_Filter_der_Daten
Call filtern
'Aufruf aus Modul Prozedur_ZaBe_Einlesen
Call ZaBe_Einlesen
'Aufruf aus Modul Prozedur_Preis_Einlesen
Call BewHerangezPreis_Bestimmen
Call Abweichung_bestimmen
Call Einzelnoten
Call GesNote_je_Lieferant
Call GewichtNote_je_Lieferant
Call Schreiben_PreisNoten_in_Gesamt
'Aufruf aus Modul Prozedur_Mengen_Einlesen
Call Abweichung_berechnen
Call Note_Abweich_Menge
Call Gesamtnote_Lieferant4
Call Gesamtnote_gewichtet_Lieferant4
Call Schreiben_MengenNoten_in_Gesamt
'Aufruf aus Modul Prozedur_Angebot einlesen
Call Differenz_Werktage
Call Note_Ang_Position
Call GesamtNote_Ang_Lieferant
Call Gewichtete_Noten_Angebot
Call Schreiben_AngebotNoten_in_Gesamt
'Aufruf aus Modul Prozedur_Rueckliefquote_einlesen
Call Abweich_Ruecklief_berechnen
Call Note_Abweich_zuordnen
Call Gew_Note_Rueck_ermitteln
Call Noten_einlesen_Gesamt
'Aufruf aus Modul Prozedur_Gesamt_einlesen
Call Summe_Gew_Noten
Call Lieferantenklasse
'Aufruf aus Modul Prozedur_AnzAB_einlesen
Call EinzelnoteAB_Bestimmen
Call GesNote_je_Lieferant_ABs
Call Gewichtete_Noten_ABs
Call Schreiben_ABNoten_in_Gesamt
End Sub