[VBA] Alle Dateien öffnen ausser sich selbst

Hallo Claus. Vielen Dank.

Hat funktioniert. Wieso plötzlich jetzt, ist mir nicht klar. Das selbe hatte ich schon versucht. Aber egal. Das Makro stoppte zwar mit einem Fehler, als strFormular = ThisWorkbook war und zwar in der Zeile wbkFormular.Close SaveChanges:=False.
Dies habe ich jetzt mit On Error GoTo abgefangen. Das würde soweit funktionieren, wenn bis dahin alle anderen Dateien abgearbeitet wurden. Ob meine XLSM immer die letzte im Verzeichnis ist, kann ich gerade nicht sagen. Erst wieder, wenn ich in der Arbeit bin.
Werde das prüfen und beobachten und Bescheid geben.

Ein kleines Feedback für alle, die vielleicht davon profitieren.

Nach ein paar Tagen und diversen Durchläufen: Funktioniert tadellos.

Hallo,

du kannst nicht strFormular mit ThisWorkbook gleichsetzen. Das eine ist ein String, das andere ein Workbook-Objekt.

Da diese Workbook schon geöffnet ist, fehlt ihm der Pfad. Du musst also nur nach dem Namen der Workbooks abfragen:

If strFormular <> ThisWorkbook.Name

und dann deine Aktionen durchführen.

Außerdem gehört

wbkFormular.Close SaveChanges:=False

in diese IF-Abfrage, da eine Datei nicht geschlossen werden kann, wenn sie erst gar nicht geöffnet ist.

Claus

Hallo,

probiere es mal so:

Sub Makro()

Dim wbkFormular As Workbook

Dim strFormular As StringWith Application

    .DisplayAlerts = False

    .ScreenUpdating = False

    .Calculation = xlCalculationManual

End With

  

strFormular = Dir(ThisWorkbook.Path & "\*.xlsm")

    Do While Len(strFormular) > 0

        If strFormular <> ThisWorkbook.Name Then

            Set wbkFormular = Workbooks.Open(strFormular)

            With wbkFormular.Worksheets("Entnahme")

                'Das soll im Formular abgearbeitet werden

            End With

            wbkFormular.Close SaveChanges:=False

        End If

        strFormular = Dir

    Loop

    

With Application

    .DisplayAlerts = True

    .ScreenUpdating = True

    .Calculation = xlCalculationAutomatic

End With

ThisWorkbook.Close SaveChanges:=True

End Sub

Claus

Das Problem ist bekannt, wird immer wieder in unterschiedlichen Zusammenhängen und Symptomen geschildert, betrifft alle VBA-Versionen, ist nicht auf Excel begrenzt.

Ursache unbekannt, vermutlich irgendeine nicht freigegebene Speicheradresse die den Memorymanager daran hindert das Projekt zu schließen.

Abhilfe ist keine bekannt, außer die komplette Applikation zu schließen und wieder zu öffnen.

EDIT: Das bedeutet aber nicht das auf meinem Rechner mit Deinen Excel-Dateien das gleiche passiert, wahrscheinlich ist es sogar das es hier nicht passiert, da ich dieses Phänomen sonst nicht habe.

Andreas.