Hi,

Das ist die Zeile, die mir Probleme bereitet:

 ZName = Range(QRB & SuchZeile).Value & ".xlsm"

Gehe ich mit der Maus auf Range, zeigt es mir "leer" an.
Entsprechend ZName ist ".xlsm"

Gehe ich es als Einzelschritt durch, zeigt er mir "RB Ost.xlms" an.
Es ist übrigends immer die Zeile 6 in der es das erste mal passiert.
Machmal läuft es auch nach mehreren Schleifen weiter.
Der nächste halt ist bei 15,

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Ich habe glaube ich den Fehler gefunden:

Nochmal:
Workbooks(QName.Name).Worksheets(QSheet.Name).Activate   <= Dies habe ich zusäzlich eingefügt
   SuchZeile = Suchwert.Row
 DoEvents
   ZName = Range(QRB & SuchZeile).Value & ".xlsm"
DoEvents
   If ZName = ".xlsm" Then
   GoTo Nochmal
   End If
Es kam wohl manchmal vor, das sich beim Ablauf zuletzt das Zielworkbook aktiviert hatte. Dadurch wurde die Zelle AD im Zielsheet abgefragt, und das war leer.

Deine Codezeile habe ich auch probiert, ergab aber in der Variablen Range rngDatenexport keinen Unterschied.

Ich bedanke mich aber trotzdem vielmals bei dir, das du versucht hast mir zu helfen.
Danke

Bernd