Wenn Function Start = End Sub

[Florian20]

Hallo Liebe Community,

Ich habe mal wieder ein Problem. Ich möchte eine Anweisung einbauen stehe aber grad auf dem schlauch  .
Ich hab auch schon in anderen Foren geschaut finde aber nichts passendes.
Hier mal meine Vorstellung wie Ich das machen wollte:

Also Ich möchte ein Sub bei Workbook_Activate() einbauen das Funktioniert auch.
aber Ich möchte nun das Wenn Ich aus Modul1 eine Sub starte das die Sub in Workbook_Activate() beendet wird bzw. ausgesetzt

Hier mal mein Code:
 
Private Sub Workbook_Activate()
'Startet den Timer nur wenn die BinärWert Sub aus ist
If Modul1.BinärWert = True Then
  Call prcTimerStop
Else
  Call prcTimerStart
End If
End Sub

Mach Ich mir das hier zu leicht oder geht das so gar nicht ? Ich hoffe doch ihr könnt mir helfen.

Lg Florian

[LCohen]

Deutsch wird mehrdeutig, wenn man es nicht richtig schreibt und Interpunktion vernachlässigt:

aber Ich möchte nun das Wenn Ich aus Modul1 eine Sub starte das die Sub in Workbook_Activate() beendet wird bzw. ausgesetzt

aber ich möchte nun, dass, wenn ich aus Modul1 eine Sub starte, (dass) die (andere) Sub in Workbook_Activate() beendet bzw. ausgesetzt wird

[Steffl]

Hallo Florian,

arbeite dich durch die super Erklärung von Peter Haserodt.