Hallo,

also meine Exceldatei öffnet eine andere Datei. bzw einen ganzen ordner von Exceldateien, das funktioniert auch, das problem ist, beim automatischen öffnen der exceledatei kommt immer eine msgbox das es verbindungen zu andern dateien gibt, also muss ich manuell immer auf weiter drücken, ich möchte nun über sendkey, das nicht mehr per hand machen müssen
was kann ich tun? denn wenn ich es nach Set WB = Workbooks.Open(Filename:=strFName) erst einfüge... sendet es "zu spät"

Const LW = "U:\"
Const Pfad2 = "U:\Eigene Dateien\"
Const Pfad = "U:\Eigene Dateien\test\"
strFName = Dir("U:\Eigene Dateien\test\*.xls")

While strFName <> ""


ChDrive LW
ChDir Pfad

Set WB = Workbooks.Open(Filename:=strFName)
Wert = Workbooks(strFName).Sheets(1).Cells(3, 1).Value

ChDrive LW
ChDir Pfad2

Workbooks("abgleich.xls").Sheets(1).Cells(1, 1 + i).Value = Wert

On Error GoTo 0
WB.Close
i = i + 1
strFName = Dir()
Wend