Guten Abend
Thorsten hat mir heute mit einem Code geholfen und ich bin am etwas umbauen
für andere Anwendung, funkt fast, habe zwei Probleme
bei Übertrag sehe ich FILENAME korrekt in "lstrDatName" aber Übertrag wechselt nicht es werden alte Daten übertragen ? denke habe ZIEL-QUELLE nicht richtig deklariert.
zweite kleine Punkt, es kommt Meldung ```Diese Arbeitsmappe enthält Verknüpfugen dies möcht ich unterbinden, Code bleibt jedes mal stehen
Do Until lstrDatName = ""
Workbooks.Open lstrDatName
If lstrDatName &lt&gt ThisWorkbook.Name Then
Sheets(lstrBlatt).Activate

'Target in Mappe, Sheet Zusammenzug
Workbooks(ZusName).Activate
Dim i As Integer
Application.ScreenUpdating = False
i = Sheets("Zusammenzug").Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
If i &lt 4 Then i = 4
' ZIELBEREICH 'QUELLBEREICH
Sheets("Zusammenzug").Cells(i, 1) = Workbooks(lstrDatName).Worksheets(lstrBlatt).Cells(23, 5) 'Kd-Nummer
usw

Workbooks(lstrDatName).Close savechanges:=False
lstrDatName = Dir
End If
Loop
DANKE für Hilfestellung
gruss helena