Code schrittweise ablaufen lassen

Guten Abend
Ich habe ein Makro, das selbst etwa 30 Subroutinen aufruft. Ich will die Zwischenergebnisse jeweils begutachten und dann den Makro weiterlaufen lassen. Die VBA-Umgebung möchte ich während der ganzen Zeit nicht sehen.
Da ich nicht weiss, wie das geht, habe ich mir folgenden Workarround überlegt: immer dort, wo der Code anhalten soll, baue ich eine MsgBox ein. Wenn ich das jeweilige Zwischenergebnis begutachtet habe, quittiere ich die MsgBox und der Code läuft weiter, bis die nächste MsgBox erscheint.
Sicher gibt es inteligentere Lösungsansätze - danke für jede Rückmeldung. Ich kann jedoch nicht die Subroutinen einzeln Aufrufen, weil verschiedene Variablen sonst nicht mit bestimmten Werten abgefüllt sind.
Gruss, Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo
"...dass ich halt bei jeder Subroutine die Variablen entsprechend deklarieren muss..."
Nein,... arbeite mit globalen bzw. public Variablen, die sind solange gültig wie nötig. Egal wieviele Subroutinen du aufrufen musst
Beispiel

Option Explicit
'Öffentliche oder globale Variablen müssen ausserhalb
'einer Subroutine deklariert werden
Public varCounter As Long
Public varString As String

'Konstanten behalten Ihren Wert auch wenn das Makro abgeschlossen ist
'Die Inhalte können jedoch nicht geändert werden im Gegensatz zu den
'"Public"-Variablen
Const varStatic As String = "Konstantentext"

Sub start()
    MsgBox "Die Variable ""varCounter"" hat den Wert: " & varCounter
    MsgBox "Die Variable ""varString"" hat den Wert: " & varCounter
    varCounter = 1
    varString = "Sub Start() ist gelaufen" & vbCrLf
    start2
End Sub

Sub start2()
    MsgBox "Die Variable Varcounter hat den Wert: " & varCounter
    varCounter = varCounter + 1
    varString = varString & "Sub Start2() ist gelaufen" & vbCrLf
    start3
End Sub

Sub start3()
    MsgBox "Die Variable Varcounter hat den Wert: " & varCounter
    varCounter = 0
    varString = varString & "Sub Start3() ist gelaufen" & vbCrLf
    MsgBox "Am Ende hat die Variable ""varCounter"" wieder den Wert: " & varCounter
    MsgBox "Die Variable ""varString"" hat nun den Inhalt: " & vbCrLf & varString & vbCrLf & _
    "und verfällt nach dem Beenden des letzten Makros. Bitte Makro ""Test"" noch starten"
End Sub

Sub test()
    MsgBox "Der Inhalt von ""varString"" ist: " & varString
    MsgBox "Der Inhalt der Konstanten ""varStatic"" ist jedoch immer noch gültig: """ & varStatic & """"
End Sub

Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Code schrittweise ablaufen lassen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread