PDA

Vollständige Version anzeigen : Makro in Makro


tino_s_86
20.09.2016, 14:18
Hallo Leute.

ich möchte ein allgemeines Makro immer wieder in andere Makros verwenden. Mein Problem ist dabei, dass ich das laufende Makro bei nicht erfüllen der Bedingung beenden möchte. Die Programmstruktur sieht wie folgt aus:

Sub Makro1 ()
.....
.....
Call Makro_Abbruch ()
.....
.....
End Sub

Sub Makro2 ()
.....
.....
Call Makro_Abbruch ()
.....
.....
End Sub

Sub Makro_Abbruch ()

if ...... then
EXIT SUB <-------- hier ist das Problem. Allgemeingültigkeit
end if

End Sub

Danke im Voraus.

mathieu_91
20.09.2016, 14:38
Hallo,

xlph hat es besser verstanden und umgesetzt als ich.

Grüße

Mathieu

xlph
20.09.2016, 14:39
Wandel dein Makro_Abbruch in eine Funktion um:

Sub Makro1()
.....
.....
If Makro_Abbruch Then Exit Sub
.....
.....
End Sub

Sub Makro2()
.....
.....
If Makro_Abbruch Then Exit Sub
.....
.....
End Sub

Public Function Makro_Abbruch() As Boolean

if ...... then
Makro_Abbruch = True
EXIT SUB <-------- hier ist das Problem. Allgemeingültigkeit
End If

End Function

tino_s_86
20.09.2016, 15:20
Ich werde es mal probieren

tino_s_86
20.09.2016, 15:30
Funktioniert. Danke