broblem exit sub. suche möglichkeit, sämtliche makros abzubrechen.

12/11/2008 - 12:23 von michlchen | Report spam
hallo.

ich habe einen sub save, in dem ich einen weiteren sub
"save_"&parameter (also save_makro1, save_makro2, ...) aufrufe.
wenn ich jetzt in save_makro1 exit sub habe führt er nat. save weiter
aus. dies möchte ich verhindern. muss ich mir jetzt eine variable
setzen, mit der ich den ausgang von save_makro1 erkennen kann um dann
in save bei if ausgang false ein exit sup zu machen oder gibt es eine
möglichkeit komplett alle makrobearbeitung zu beenden?

danke für die info.

grüße das michl.
 

Lesen sie die antworten

#1 stefan onken
12/11/2008 - 14:24 | Warnen spam
On 12 Nov., 12:23, michlchen wrote:
hallo.

ich habe einen sub save, in dem ich einen weiteren sub
"save_"&parameter (also save_makro1, save_makro2, ...) aufrufe.
wenn ich jetzt in save_makro1 exit sub habe führt er nat. save weiter
aus. dies möchte ich verhindern. muss ich mir jetzt eine variable
setzen, mit der ich den ausgang von save_makro1 erkennen kann um dann
in save bei if ausgang false ein exit sup zu machen oder gibt es eine
möglichkeit komplett alle makrobearbeitung zu beenden?

danke für die info.

grüße das michl.



hallo michl,
du kannst bzw musst eine Variable verwenden oder eine Kombination aus
Sub und Function:

Sub save()
If save_makro1 = False Then Exit Sub
MsgBox "kein x in A1:A10"
End Sub

Function save_makro1() As Boolean
For i = 1 To 10
If Range("A" & i) = "x" Then Exit Function
Next
save_makro1 = True
End Function

Save_makro1 kann hier True/False zurückgeben an die aufrufende Sub (je
nachdem, ob in A1:A10 ein x enthalten ist).

Gruß
stefan

Ähnliche fragen