|
Hallo Internet,
Ich habe ein kleine Herausforderung für dich! Ich möchte folgendes machen:
Ich arbeite an einem grösseren Projekt, einige der Aufgaben sind Zeit aufwendig und relativ langsam. Um die Laufzeit zu bestimmen habe ich ein kleines Script gefunden:
Sub CalculateRunTime_Seconds()
'PURPOSE: Determine how many seconds it took for code to completely run
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault
Dim StartTime As Double
Dim SecondsElapsed As Double
'Remember time when macro starts
StartTime = Timer
'*****************************
'Insert Your Function Here...
'*****************************
'Determine how many seconds code took to run
SecondsElapsed = Round(Timer - StartTime, 2)
'Notify user in seconds
Debug.Print "This code ran successfully in " & SecondsElapsed & " seconds", vbInformation
End Sub
Da ich aber verschiedenste Scripts testen möchte habe ich mich gefragt ob es eine Möglichkeit gibt eine Funktion oder den Aufruf einer Funktion so zu verpacken, das ich wenn ich Function_A oder Sub_B auswerten will nur folgenden Aufruf schreiben muss:
CalculateRunTime_Seconds("Funktion_A(ARG1,ARG2,..)") oder CalculateRunTime_Seconds("SUB_B(ARG1,ARG2,..)")
Wenn jemand eine Idee hat darf er sich gerne melden.
Grüsse
|