Excel 2016 Makro, welches mehrere Dateien öffnet und speichert, bricht ohne Fehlermeldung ab

Vielen Dank, dass Sie dieses Problem gemeldet haben. Unser Entwicklerteam arbeitet an einer Lösung, und sobald wir mehr wissen, finden Sie hier weitere Informationen.

Known issue with VBA forms in September feature update

Office Newsroom

Datei1, Datei2 war beispielhaft gemeint. Effektiv ist es aber z.B. Schmid.xlsm, Huber.xlsm, Meier.xlsm. Ich kann den

Ja klar und nun glaubst Du ich schreib ich Dir das für Schmid, Huber, Meier um und dann kommst Du wieder und sagst:

"Och nö, ist doch noch ein bißchen anders..."

Such nach den Dateien mit DIR oder schreib die Namen in ein Array und verwende eine FOR EACH Schleife.

Schau in die Hilfe da sind Beispiele drin.

Andreas.

Workbooks.Open Filename:= _
"C:\Users\Thomas\Documents\Datei6.xlsm"

ActiveWorkbook.Save

ActiveWindow.Close

Naja, das Makro macht ja gar nix, aber Du hast irgendwas in der Datei das was macht und dort liegt das Problem.

So als Schuss ins Blaue: Teste mal das Makro unten.

Andreas.

Sub TestRefresh()

Dim DefName As String, FName As String

Dim i As Integer

Dim Wb As Workbook



Application.ScreenUpdating = False

DefName = "C:\Users\Thomas\Documents\Datei#.xlsm"

For i = 1 To 50

FName = Replace(DefName, "#", i)

If Dir(FName) <> "" Then

Set Wb = Workbooks.Open(FName)

Do While Not Application.Ready

DoEvents

Loop

Wb.Close True

End If

Next

End Sub

Hallo Andreas

Vielen Dank für dein schnellen Input. Ich kriege das Teil aber leider nicht zum laufen, weil ich etwas unpräzise war. Datei1, Datei2 war beispielhaft gemeint. Effektiv ist es aber z.B. Schmid.xlsm, Huber.xlsm, Meier.xlsm. Ich kann den Loop also nicht verwenden.
Gibt es dafür einen ähnlich eleganten Ansatz? Gruss, Thomas

Hallo ThomasWyss,

in diesem Fall können dir unsere Kollegen vom
MSDN Forum am besten weiter helfen. Sie kümmern sich dort um Makros und andere Formeln.

Bei weiteren Fragen melde dich gerne wieder bei uns!

Mit freundlichen Grüßen

Angela.