In macro verwijzen naar sub

[Dennis FES]

Ha allen,

Ik ben bezig aan een mooie Excell macro met daarin een aantal timers.
Nu heb ik in de het programma een aantal subs gedefineerd bijvoorbeeld:

Sub Gezaagde_order_naar_buffer()
' Gezaagde_order_naar_buffer Macro
Range("C9:K13").Select
Selection.Cut
Range("C10").Select
ActiveSheet.Paste
Range("C4:K4").Select
Selection.Cut
Range("C9").Select
ActiveSheet.Paste
End Sub


Nu moet er een timer gaan lopen (dit lukt met de tips van gisteren) en als de timer op nul is uitgekomen moet er een sub uitgevoerd worden, degene die hierboven staat.
Ik probeer dit te doen met:

If EndTime - Now < 0 Then "Gezaagde_order_naar_buffer"

Dit wil echter niet werken, hoe kan ik een sub laten afspelen na een IF/THEN statement?
Het liefst wil ik 2 verschillende subs aflaten spelen, kan ik deze dan achter elkaar zetten?

Vriendelijke groet,
Dennis Varkevisser

 

[Wigi]

If EndTime < Now Then
   Gezaagde_order_naar_buffer
   Andere_macro
End If

 

[Wigi]

Dit doet overigens hetzelfde als jouw 'mooie' Excel macro:

Sub Gezaagde_order_naar_buffer()
   'Gezaagde_order_naar_buffer Macro
   Range("C9:K13").Cut Range("C10")
   Range("C4:K4").Cut Range("C9")
End Sub

Of nog korter:

Sub Gezaagde_order_naar_buffer()
   'Gezaagde_order_naar_buffer Macro
   [C9:K13].Cut [C10]
   [C4:K4].Cut [C9]
End Sub