Hi, ralf_b
Nun der komplette Code erstreckt sich über 812 Zeilen.
Deshalb habe ich nur den Teil ausgeschnitten, den es betrifft.
Kurz gesagt geht es darum:

Nochmal:
   SuchZeile = Suchwert.Row         'Hier lege ich fest in welcher Zeile gerade der zu suchende Wert in der Quelldatei liegt.
 DoEvents

Hier liegt das Problem:
   ZName = Range(QRB & SuchZeile).Value & ".xlsm"     ' Hier soll die Variable ZName befüllt werden. QRB = "AD" Suchzeile ergiebt sich aus der aktuell zu suchenden Zeile aus der Quelldatei z.B. = 5

        Und zwar soll die Zelle Range(QRB & SuchZeile) (Range("AD5") der Wert (.Value) ausgelesen werden und ein ".xlsm" angehängt werden.
        Einige Durchläufe lang funktioniert es prima. Dann plötzlich liest er die Zelle in der z.B. "Ost" steht nicht aus.
        Es sollte in der Variablen "Ost.xlsm" stehen, aber es steht nur ".xlsm"
        Wenn ich die gleiche Zeile mit F8 (Step by Step) durchgehe funktioniert es.
        Das mit der Dauerschleife ist nur ein Provisorium, mit dem ich den Fehler abfangen wollte und dem Makro die Gelegenheit geben wollte es nochmal zu machen.
        Aber auch das funktioniert leider nicht. Aber mit F8 geht es. Meines Erachtens liegt es also nicht an der Zelle oder deren Inhalt.
        Woran es liegt weiß ich aber auch nicht.
        Die DoEvents sollten eigentlich dem Programm Zeit geben den Code dort auszuführen.
        Funktioniert aber auch nicht.
        DoEvents und die Schleife sind einfach mein Versuch den Fehler abzufangen.
        Ich könnte auch ein If ZName = ".xlsm" Then Stop einfügen, müsste dann aber immer wieder per F8 weitermachen.
        Das liegt aber nicht im Sinne des Erfinders.
        Deshalb meine Frage hier.

DoEvents
   If ZName = ".xlsm" Then
   GoTo Nochmal
   End If

Ich hoffe ich konnte etwas Licht bringen und ihr könnt helfen.