Excel Vba: Zeit messen

Computer: Software & Programmierung Office Software
#1

Hallo Experten,
ist es möglich die Zeit zu messne, die eine Schleife braucht?
So in der Art

sub test()
dim anfangszeit as systemzeit, endzeit as systemzeit 
dim zeit as zeit 
dim i as Integer

anfangszeit = xxx
for i = 1 to 100
 do use less stuff 
next i 
endzeit = xxx
zeit = endzeit - anfangszeit 
msgbox "diese Schleife hat :" & zeit & " gedauert"

end sub

Mein Ziel ist es rauszufinden welche Variante schneller ist. da ich meinen Code optimieren möchte.

Danke
Winter

#2

ist es möglich die Zeit zu messne, die eine Schleife braucht?
Mein Ziel ist es rauszufinden welche Variante schneller ist.
da ich meinen Code optimieren möchte.

Hi Winter,

so vielleicht:

Option Explicit
'
Sub test()
Dim Eins As Single, Zwei As Single
Dim i As Integer
Eins = Timer
For i = 1 To 100 'Schleife 1
 'do use less stuff
Next i
Eins = Timer - Eins
Zwei = Timer
For i = 1 To 100 'Schleife 2
 'do another use less stuff
Next i
Zwei = Timer - Zwei
MsgBox "Schleife1 brauchte die Zeit: " & Eins
MsgBox "Schleife2 brauchte die Zeit: " & Zwei
End Sub

Gruß
Reinhard

#3

so vielleicht:

Option Explicit
’
Sub test()
Dim Eins As Single, Zwei As Single
Dim i As Integer
Eins = Timer
For i = 1 To 100 'Schleife 1
'do use less stuff
Next i
Eins = Timer - Eins
Zwei = Timer
For i = 1 To 100 'Schleife 2
'do another use less stuff
Next i
Zwei = Timer - Zwei
MsgBox "Schleife1 brauchte die Zeit: " & Eins
MsgBox "Schleife2 brauchte die Zeit: " & Zwei
End Sub

Gruß
Reinhard

Hallo Reinhard,
Cool danke
Wie man es gewöhnt ist. Schnell, sauber und elegant.
Danke!
Winter