Thema Datum  Von Nutzer Rating
Antwort
02.03.2017 14:31:41 The_Materialist
NotSolved
Blau Funktion/ Sub als Argument übergeben
 02.03.2017 17:23:53 SJ
***
NotSolved
02.03.2017 18:58:32 Onur
*****
Solved
03.03.2017 09:14:43 The_Materialist
NotSolved

Ansicht des Beitrags:
Von:
SJ		 Datum:
02.03.2017 17:23:53		 Views:
647		 Rating:
     
Antwort:
  Ja
Thema:
Funktion/ Sub als Argument übergeben

Hallo,

ich würde das Problem wie folgt lösen:

Option Explicit

Public Type Parameters
    Function As String
    Text As String
    Number As Integer
End Type

Public Sub main()
    Dim tParams As Parameters
    
    With tParams
        .Function = "Test_1"
        .Text = "Hallo Welt!"
    End With
    
    Call CalculateRunTime_Seconds(tParams)
    
    With tParams
        .Function = "Test_2"
        .Number = 2
    End With
    
    Call CalculateRunTime_Seconds(tParams)
End Sub

Public Sub CalculateRunTime_Seconds(ByRef args As Parameters)
    '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...
    '*****************************
    Select Case args.Function
        Case "Test_1":
            Call Function_Test_1(args.Text)
        Case "Test_2":
            Call Function_Test_2(args.Number)
    End Select
     
    '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"
End Sub

Public Sub Function_Test_1(ByVal Input_1 As String)
    Application.Wait Now + TimeValue("00:00:05")
    Debug.Print "Output Function: " & Input_1
End Sub

Public Sub Function_Test_2(ByVal Input_1 As Integer)
    Application.Wait Now + TimeValue("00:00:05")
    Debug.Print "Output Function: " & Input_1
End Sub

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
02.03.2017 14:31:41 The_Materialist
NotSolved
Blau Funktion/ Sub als Argument übergeben
 02.03.2017 17:23:53 SJ
***
NotSolved
02.03.2017 18:58:32 Onur
*****
Solved
03.03.2017 09:14:43 The_Materialist
NotSolved