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
|