Office: im makro springen

hallo ,
brauch mal hilfe bitte kome einfach nicht darauf....

ich will über eine CommandButton1_Click() an eine bestimmte stelle eines makros springen.

im makro selber geht das ja über

blabla....
If CMC_Error = 1 Then GoTo Ende
blabla.....
Ende:

doch wie komme ich dort hin über mein commandButton?
hoffe ihr könnt mir hier bai weiter helfen

schon mal danke

 

Mal so ganz pauschal: Geht nicht!

Durch das Drücken eines Buttons wird ein Ereignis ausgelöst. Dieses Ereignis kann mit einer Routine verknüpft werden, die dann ausgeführt werden soll. Aber ein Einsprung irgendwo mitten in eine Routine geht darüber schonmal nicht.

Womit man sich aber vielleicht ein bißchen behelfen kann, wäre ein "Semaphore" bzw. eine Boolean-Variable, die den Ablauf in der anderen Routine steuert.

Mal so als Beispiel:

Code:

Option Explicit

    Dim SchleifeLaeuft As Boolean

Private Sub SchleifeAusfuehren()
    Range("f2").Value = 0
    SchleifeLaeuft = True
    While SchleifeLaeuft
        Range("f2").Value = Range("f2").Value + 1
        DoEvents
    Wend
End Sub

Private Sub B_Start_Click()
    SchleifeAusfuehren
End Sub

Private Sub B_Stop_Click()
    SchleifeLaeuft = False
End Sub

Hier wird also durch den "Start"-Button eine Routine angeschubst, die endlos laufen würde. Es gibt aber ein Abbruch-Kriterium: Die Variable "SchleifeLaeuft". Beim Start wird sie auf "true" gesetzt und die Routine dann so lange durchlaufen, wie sie immer noch auf "true" steht.

Durch den "Stop"-Button passiert nichts weiter, als daß eben diese Variable auf "false" gesetzt wird. Die Routine "SchleifeLaeuft" wird daraufhin beim nächsten "While" die Abarbeitung beenden.

(Das "DoEvents" ist übrigens notwendig, um das Drücken des "Stop"-Buttons überhaupt erst zu ermöglichen...)

Gruß, Michael