Excel has stopped working

Question

Hallo zusammen,

ich habe ein Problem mit Excel..
Ich öffne per VBA-Makro rund 4000 Dateien nacheinander (mit filesearch - ich weiß, das kennen viele schon nicht mehr) schreibgeschützt, lese Daten aus und schreibe diese in einer xls-Datei zusammen.

Bisher lief alles immer ganz prima, seit kurzem erhalte ich aber immer wieder die Fehlermeldung "Excel has stopped working", idealerweise meist gegen Schluss der Einleseroutine.

Am Code habe ich nichts geändert. Nach der Fehlermeldung habe ich keine Chance mehr nachzuvollziehen, warum Excel abbricht.

Kennt von Euch jemand das Problem und vielleicht sogar eine Lösung?

Das Problem tritt übrigens sowohl unter XP,als auch unter Windows7 auf.

Für Eure Mühe im voraus vielen Dank!

Answer 1

Hallo,

schau mal hier nach (ist allerdings auf Englisch).

Gruß

M.O.

Answer 2

das klingt sehr vielversprechend :-)
Aktuell läuft das Makro, morgen wird es sich herausstellen, ob es funktioniert.

Answer 3

Hallo,

leider hat's nicht geklappt, hat vielleicht sonst noch jemand eine Idee?

Mit dem alten Rechner XP und Office 2003 hat's noch geklappt und jetzt mit Windows7 läuft das Ding nicht mehr..

Answer 4

Ich schiebe das Thema mal nach oben, vielleicht kennt ja noch jemand eine Lösung?

Answer 5

hi ^^

alternativ

gruss nighty

Option Explicit

Sub DateienLesen()
Call EventsOff
Dim DateiName As String
DateiName = Dir("C:\Temp\" & "*.xls")
Do While DateiName <> ""
If ThisWorkbook.Name <> DateiName Then
Workbooks.Open Filename:="C:\Temp\" & DateiName

Workbooks(DateiName).Close SaveChanges:=True
End If
DateiName = Dir
Loop
Call EventsOn
End Sub

Public Sub EventsOff()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
End Sub

Public Sub EventsOn()
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub