Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
436to440
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
436to440
436to440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Performancemessung in for-next-Schleife gesucht

Performancemessung in for-next-Schleife gesucht
07.06.2004 20:14:00
WalterJ
Hallo Experten,
der Betreff sagt es schon, ich suche nach einer simplen Schleife, die
mir in etwa sagt, ob ich einen langsamen oder schnellen PC vor mir habe.
Ich als Benutzer weiß das, aber meine VB-Makros können das leider nicht
sehen.
Ich habe schon rumexperimentiert mit dem Zählen von Sekunden, aber ist
nicht so einfach. Um 23:59 Uhr nachts ist es noch schwieriger.
Wer ist so nett und gibt mir einen Tipp?
Wie immer vielen Dank im Voraus!
Gruß, Walter
AW: Performancemessung in for-next-Schleife gesucht
K.Rola
Hallo,
Prinzip:
dim start as single

Sub dein_makro()
start = timer
'dein Code.....
msgbox timer - start
End Sub

Die Zeit sollte auf allen PC gleich sein.
Gruß K.Rola
AW: Performancemessung in for-next-Schleife gesucht
NE
Hi K.Rola,
will ja nich vorlaut sein, steht mir auch garnich zu ;-)
ähm, timer gibt die vergangenen sekunden nach Mitternacht zurück,
[dachte ich jedenfalls],
Was, wenn nun eine Prozedur kurz vor 24:00 gestartet wird und NICHT vor 00:00 endet?
Oder hab ich jetz nen Klemmer irgendwo ?
Aber mal was ganz andes, warum überhaupt in einer Schleife messen,
kann man nicht die Prozessorleistung irgendwie abfragen ?
Wär doch IMHO viel einfacher ..., allerdings nun ... naja ... äh, ich weiss nich wie & ob's geht ;-)
lg NE
Anzeige
AW: Performancemessung in for-next-Schleife gesucht
K.Rola
Hallo,
prinzipiell hast du natürlich Recht, wenn das Problem auch praktisch eher
theoretisch ist, wenn du weißt, was ich meine.
Gruß K.Rola
AW: Performancemessung in for-next-Schleife gesucht
NE
Hallo K.Rola,
geniale Satzbildung, muss ich mir merken :-)
ich weiss wie Du's meinst ;-), mir fiel nur diese Zeile von Walther ins Auge:
"Um 23:59 Uhr nachts ist es noch schwieriger."
Deswegen der rein hypothetisch unpraktische theoretische Einwand ;;-))
lg Nancy
--
if i ask you a hypothetical question, would you answer it ?
AW: Performancemessung in for-next-Schleife gesucht
K.Rola
Hallo,
ich hab gewusst, dass du weißt, was ich meine, war auch mehr eine
hypothetical question.
Alternative weiter unten.
Gruß K.Rola
Anzeige
*zwinkerz* ;;-))
NE
ich weiss, hab' ich erst zu spät gelesen gehabt ...,
egal wie, Danke :-)
greetz & sweet dreams
Nancy
AW: Performancemessung in for-next-Schleife gesucht
Ramses
Hallo NE
Mit
Debug.Print Environ(16)
Erhältst du den Prozessortyp.
Hier mal eine kleine Auswahl die ich mal gesammelt habe
22 386SX 16
32 386SX 20
39 386SX 25
49 386DX 25
51 Pentium 60 (iCOMP 2 rating)
56 386SX 33
57 Pentium 66 (iCOMP 2 rating)
63 486SX 16
67 Pentium 75 (iCOMP 2 rating)
67 Pentium 75
68 386DX 33
75 Pentium OverDrive 120 (iCOMP 2 rating)
78 486SX 20
81 Pentium 90 (iCOMP 2 rating)
81 Pentium 90
84 Pentium OverDrive 133 (iCOMP 2 rating)
90 Pentium 100 (iCOMP 2 rating)
90 Pentium 100
100 486SX 25
100 Pentium 120
105 Pentium OverDrive 125 (iCOMP 2 rating)
111 Pentium 133
114 Pentium OverDrive 150 (iCOMP 2 rating)
114 Pentium 150
122 486DX 25
127 Pentium OverDrive 166 (iCOMP 2 rating)
127 Pentium 166
136 486SX 33
142 Pentium 200 (iCOMP 2 rating)
142 Pentium 200
166 486DX 33
180 486SX2 50
231 486DX2 50
249 486DX 50
297 486DX2 66
319 486DX4 75
435 486DX4 100
443 Pentium OverDrive for 486 63 (iCOMP 1
510 Pentium 60 (iCOMP 1 rating)
567 Pentium 66 (iCOMP 1 rating)
581 Pentium OverDrive for 486 83 (iCOMP 1
610 Pentium 75 (iCOMP 1 rating)
735 Pentium 90 (iCOMP 1 rating)
815 Pentium 100 (iCOMP 1 rating)
877 Pentium OverDrive 120 (iCOMP 1 rating)
970 Pentium OverDrive 133 (iCOMP 1 rating)
1000 Pentium 120 (iCOMP 1 rating)
1070 Pentium OverDrive 125 (iCOMP 1 rating)
1110 Pentium 133 (iCOMP 1 rating)
1176 Pentium 150 (iCOMP 1 rating)
1176 Pentium OverDrive 150 (iCOMP 1 rating)
1308 Pentium 166 (iCOMP 1 rating)
1308 Pentium OverDrive 166 (iCOMP 1 rating)
Die neuen P4 Prozessoren habe ich leider nicht, aber ein findiger Bastler würde das sicher schnell rausfinden :-)
Gruss Rainer
Anzeige
AW: Performancemessung in for-next-Schleife gesucht
NE
Hallo Rainer,
muchas Gracias :-)
Scho' kopiert/geklaut ;;-))
Probieren kann ich erst morgen ;-(
thx & Gruss Nancy
AW: Alternative
Martin
Hallo,

Sub dein_makro()
t = Now
'dein Code.....
MsgBox CDbl(86400) * (Now - t)
End Sub

müßte es auch tun, oder?
Gruß
Martin Beck
AW: Performancemessung in for-next-Schleife gesucht
K.Rola
Hallo,
nach Hinweis von Nancy dann halt so:
Option Explicit
Declare 

Function GetTickCount Lib "kernel32" () As Long


Sub messen()
Dim s As Long, d As Long
s = GetTickCount
'dummycode--------------------------------------
Do
DoEvents
d = d + 1
Loop Until d = 100000
MsgBox GetTickCount - s
End Sub



Gruß K.Rola
Anzeige

300 Forumthreads zu ähnlichen Themen

Zeichenkette per for-next-schleife erstellen
lauer

Hallo,
ich möchte mir eine Zeichenkette erstellen lassen.
Ich habe in einer Zelle (B11) den Anfang (1) angegeben und in der anderen (C11) steht das Ende (49).
Nun möchte ich, dass er mir in der E11 die Zeichenkette reinschreibt.
Also ich möchte dann in E11 stehen haben: 1,2,3,4,...
09.08.2008 19:06:00
Thread-ID: 1000538
5 Beiträge
Anzeige
For Next Schleife - Performance
Christoph

Hallo VBA-Experten!
Bin im VBA-Sektor erst seit 3 Tagen aktiv (Selbsteinschulung :-) ). Habe jetzt aber leider ein rießiges Problem und bitte ganz dringend um Eure Hilfe:
In meinem Bericht (siehe Anhang - https://www.herber.de/bbs/user/62579.zip)
soll folgendes passieren:
Der Be...
19.06.2009 17:54:19
Thread-ID: 1082980
6 Beiträge
Array füllen ohne For...Next-Schleife
Micha

Hallo,
ich möchte einen Array-füllen, ohne eine Schleife benutzen zu müssen, um Zeit zu sparen, d.h. anstatt
For CalcArraycnt = 1 To 30
CalcArray(cnt, CalcArraycnt) = "=PRODUCT(R[-2]C,R[-1]C)"
Next
irgendwas wie
Range(CalcArray(cnt, 1),CalcArray(cnt, 30) = "=PRODUCT(R[...
13.10.2009 12:21:38
Thread-ID: 1109304
6 Beiträge
Anzeige
Sytanx zur ForNext-Schleife
Jörg-HH

Guten Abend zusammen,
habe einen Knoten mit der richtigen Schreibweise...
In einem Blattcode steht:
If Target.Address = Range("Hilfszelle2").Address Then Call machwas2 End If If Target.Address = Range("Hilfszelle3").Address Then Call machwas3 End If usw... bis 5
in einem Modul...
08.12.2009 20:44:25
Thread-ID: 1122490
11 Beiträge
Verschachtelte For Next Schleife zusammenfassen
Illusion

Hi
Ich habe ein Makro, das nach folgendem Schema aufgebaut ist:
Dim i%, j%, k%, Summe% Dim ws As Worksheet Set ws = Worksheets("Liste") For i = 1 to 3 For j = 4 to 6 For k = 7 to 9 Summe= ws.cells(i, 2).value + ws.cells(j, 2).value + ws.cells(k, 2).value Next k Next j Next i
Mein P...
17.12.2009 12:55:13
Thread-ID: 1124631
14 Beiträge
For...Next Schleife anstelle Do until...Loop | Herbers Excel-Forum
Stefan
Hallo zusammen,
ich habe eine Do...Loop Schleife und würde diese gerne durch eine For...Next Schleife ersetzten.
Geht das in diesem Fall überhaupt? Sub loop() Dim iRow As Integer iRow = 5 Do Until Cells(iRow - 1, 1).Value = "x" If IsEmpty(Cells(iRow, 1)) Then End If iRow = iRow + 1 Loop End...
14.01.2010 15:23:09
Thread-ID: 1129973
11 Beiträge
For Next Schleife ?
Leitz

Hallo!
Wie kann ich eine For Next Schleife so ändern, daß sie aufhört sobald die erste Übereinstimmung gefunden wurde?
Oder muß ich da was anders vewenden?
Sub DatumSuche() Dim Datum As Date Datum = Cells(3, 5) 'Testdatum Dim a As Integer For a = 100 To 3 Step -1 If Cells(a, 1).Text...
09.02.2010 18:48:49
Thread-ID: 1137145
13 Beiträge
dynamische For Next Schleife
Steffen

Hallo zusammen,
ich habe eine For next Schleife, der obere Bereich soll hier bei dynamisch sein, da während der Prozedur Zeilen eingefügt werden. Ich habe es mit folgendem Code probiert wobei der obere Bereich auch hochgezählt wird aber die Schleife bei dem Ursprungswert beendet wird.
D...
19.02.2010 12:24:57
Thread-ID: 1139740
6 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
5
5
6
10
13
10
12
5
8
4
6
6
19
6
9
8
16
10
3
7
1
4
7