Clever-Excel-Forum

Hallo Excelfreunde,
 
Am Ende meines Makros steht dieser Code, der bis dahin einwandfrei funktioniert:
 
If ActiveCell = "" Then
        MsgBox "In dieser Zelle steht kein Dateiname. Daher Abbruch."
        Exit Sub   'Makro wird abgebrochen
        End If    'Makro wird weiter durchgeführt

 Workbooks.Open (ThisWorkbook.Path & "\" & ActiveCell.Offset(0, 0).Range("A1").Value)  'die nächste kleine Datei wird geöffnet
Windows("Gesamtübersicht(J5).xlsm").Activate   'große Datei wird aktiviert
 
End Sub
 
Wie muss ein Code direkt vor „End Sub“ heißen, damit das Makro wieder nach vorne zum Anfang springt – quasi eine Schleife macht?
 
Vielen Dank im Voraus eure Hilfe.
 
Jorg

Hallo Jorg,

um Deine Frage genau zu beantworten:
Du kannst am Anfang der Sub eine Sprungmarke setzen und mit dem GOTO-Befehl dort hinspringen.

Da GOTO-Befehle heutzutage nicht mehr beliebt und professionell sind und die vielfache Benutzung auch zur Unübersichtlichkeit führt, ist es besser, Du nimmst eine der bekannten Schleifen und programmierst dort passende Rausspringer..... 

siehe Beispiel: 
Hinweis: Diese Schleife könnte eine Endlosschleife sein, weil sich die ActiveCell ggf. nicht ändert. Aber der Code ist ja auch nicht vollständig.

Hallo Karl-Heinz

ganz, ganz herzlichen Dank für Deine klare Antwort. Ich habe beide Möglichkeiten probiert und werde mich für deinen 2. Vorschlag entscheiden.

Vielen, vielen Dank!

Jorg