Office: (Office 2010) EXCEL VBA: Mehrere Makros starten mit IF-Anweisung

Hallo,

wie der Titel schon sagt, ich habe einen Hauptmakro wo mehrere Makros nacheinander ausgeführt werden.

z.B.:
Call Makro 1
Call Makro 2
Call Makro 3
...
Makro 10.

Ich möchte nun eine Prüfung hier einbauen, die besagt, dass ab Makro 2 nur dann ausgeführt werden soll, wenn Makro1 ausgeführt wurde.
Hintergrund: Das Makro1 ist ein Makro wo mehrere CSV-Dateien in der Liste importiert werden und zwar mittels Application.GetOpenFileName. Ich habe in dieses Makro eine Prüfung eingebaut, dass wenn man auf "Abbrechen" in den Öffnen-Dialog klickt, das Makro dann beendet wird.

Hier kommt aber mein Problem.

Beim Hauptmakro, gibt es keine Prüfung. Das heißt wenn das Hauptmakro ausführt, läuft ja zuerst Makro1 dann öffnet sich der Öffnen-DIalog um die Dateien zu wählen. Wenn man dann auf "Abbrechen" klickt, wird ja das Makro1 beendet (weil es eine Prüfung da gibt) aber das Hauptmakro läuft trotzdem weiter auf Makro2, Makro3....
Das möchte ich aber verhindern.

Ich habe irgendwo gelesen, man kann für ein Makro irgendwie eine Boolean-Variable definieren um die Prüfung zu machen aber ich krieg das nicht hin.

Jemand ne Idee?

Danke
Mfg

 

Hallo

das könnte auf diese Weise gehen

Code:

Option Explicit

Dim ausgefuehrt As Boolean

Sub hauptmakro()
    ausgefuehrt = False
    Call Makro1
    If ausgefuehrt = True Then
        Call makro2
        Call makro3
    End If
End Sub

Sub Makro1()
    'Code
    'wenn das Makro ausgefuehrt wurde
    ausgefuehrt = True
End Sub

MfG Tom

 

Hallo Tom, vielen Dank für den Tipp. Hab die Boolean-Variable als Global definiert, da die Makros ja auch in unterschiedliche Module sind. Funktioniert einwandfrei. Mfg