Hallo liebes Forum,
ich möchte Werte von einer Datei in eine andere kopieren. Dabei habe ich das Problem, dass sich nicht alle Dateien öffnen.
1. Es gibt ein Template (Zieldatei), in das ich alle Werte einkopieren möchte. Dieses öffne ich mit Workbooks.Open gleich zu Beginn des Makros.
2. Anschließend habe ich eine Schleife eingebaut, die alle Quelldateien nacheinander öffnet, deren Zeile ein "x" enthält. Die Quelldateien habe ich namentlich in einer Tabelle in Spalte E aufgelistet - eine Zeile gleich ein Dateiname. Die Spalte D enthält das "x".
Hierfür verwende ich den folgenden Code:
For i = 20 To 250
If UCase(Cells(i, 4).Value) = "X" Then
Quelldatei = ThisWorkbook.Sheets("Daten").Cells(i, 5).Value
Workbooks.Open Filename:=PfadQuelldatei & "\" & Quelldatei, UpdateLinks:=False
...
End if
Next i
Mein Problem ist nun, dass das Template geöffnet wird, jedoch die UCASE-Schleife nicht durchlaufen wird. Lösche ich allerdings die Funktion des Öffnens des Templates, dann wird die UCASE-Funktion durchlaufen.
Was fehlt in meinem Code, so dass alle Dateien geöffnet werden?