VBAProject

   

    If Environ("Username") = "wolfgang1" Or VBA.Environ("USERNAME") = "wolfgang2" Then

        Dim Antwort1 As String

        Antwort1 = MsgBox("Achtung !!!" & Chr(13) & Chr(13) & _

           "Möchten Sie die Datei auf Laufwerk ""D""  schließen ?       " & Chr(13) & Chr(13) & _

           " " & Chr(13) & Chr(13) & _

        "Schließen:   JA         drücken", vbCritical + vbYesNo, "Beenden ?")

If Antwort1 = vbYes Then

  Range("A2").Select

    Application.DisplayAlerts = False

    ActiveWorkbook.SaveAs Filename:="d:\Lagerbestandsliste.xlsm", _

            FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

    ActiveWorkbook.Close

End If

    End If

    

Hallo Margarete

versuch mal folgendes:

Setze am ende deiner Sub alle Objekte wieder auf Null, also zB:

Set wkbTool = Nothing

Set wksTool = Nothing

Set wkb1 = Nothing

set wkb = Nothing

Damit gibst du den Arbeitsspeicher wieder frei.