ich möchte in mehreren Ordnern alle enthaltene Dateien öffnen, die Verknüpfungen aktualisieren, speichern und dann schließen lassen. Funktioniert auch.
Lediglich die Ordner E10, E30 und E50 wollte ich über SPLIT dem Link dynamisch zuordnen. UBound bringt aber nen Fehler "erwartet Datenfeld".
Sicher nur Kleinigkeit...Warum geht's nicht?
Option Explicit
Sub Test()
Application.ScreenUpdating = False
Dim cDir As String
Dim sPath As String
Dim Ebene As String
Dim i As Integer
Ebene = Split("E10,E30,E50", ",")
For i = 0 To UBound(Ebene)
sPath = "T:\~Urlaubsplanung\" & Ebene & "\Test\"
cDir = Dir(sPath & "*.*")
Do While cDir ""
Application.DisplayAlerts = False
Workbooks.Open (sPath & cDir), UpdateLinks:=3
ActiveWorkbook.Save
ActiveWorkbook.Close False
'nächste Datei lesen
cDir = Dir
Loop
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Danke für die Unterstützung