Sub in Prozedur öffnen und Parameter überprüfen

[briansen93]

Hallo Zusammen,

ich habe folgendes Problem:

Ich habe eine Prozedur in der ich auf folgendes Sub zugreifen möchte:

Sub GrundprMPT1()
'
'
' GrundprOGS1
' LMPT_1= Leer MPT 1
' BMPT_1= Bedingt MPT 1
' DMPT_1= Dringend MPT 1
Static KlickNr As Long
 Select Case KlickNr
    Case 0: Call LMPT_1
    Case 1: Call BMPT_1
    Case 2: Call DMPT_1
 End Select
 KlickNr = KlickNr + 1
 If KlickNr >= 3 Then KlickNr = 0
 
 End Sub

Nun soll er dieses Sub nicht einfach ausführen sondern die "KlickNr" erst überprüfen und dann auf 0 setzen falls diese größer 0 ist.

Ich bekomme über "Call" leider nur das normale ausführen des Sub hin.

[Kuwer]

Hallo,

ich habe Dein Anliegen nicht verstanden.

Gruß Uwe

[BoskoBiati]

Hallo,

vielleicht bin ich zu doof, um das zu verstehen:

Du willst erst prüfen, ob die KlickNr >0, wenn ja, dann setze sie auf 0.
Dann startet Deine Sub und fragt ab, ob die KlickNr zwischen 0 und 2 ist, um dann eine weitere Routine aufzurufen.
Danach wird die KlickNr um 1 erhöht.


Was soll das werden????

Im übrigen hast Du Dir das selbst eingebrockt, indem Du die KlickNr als Static festgelegt hast!

[schauan]

Hallöchen,

für mich macht das Sinn, wenn Du die Sub auf verschiedene Weise startest. Wenn Du es mit dem Call tust, könntest Du ja einen Parameter übergeben, anhand dessen Du Deinen Klick auf 0 setzt. Hier mal die Parameterübergabe zum ausprobieren:

Code:

Sub test(Optional a As Integer = 1)
MsgBox a
End Sub

Sub test1()
Call test
End Sub

Sub test2()
Call test(55)
End Sub