Danke Frank für die Hilfe,
Nun funktioniert das ganze immer noch nicht. Das Befehl:
-----------------------------------------------
"If Application.Workbooks.Count (größer) 2 Then"
-----------------------------------------------
liefert immer "True" obwohl es keine weitere Excel-File geöffnet sind ausser diese mit dem Macro. Kann es an die Excel-Version liegen? gibts es eine andere ähnliche Befehl für diese Abfrage.
Danke für die Hilfe


Bezieht sich auf diese Nachricht:
Hallo Mahdia 1981,
versuche es mal so:
If not ActiveWorkbook is Nothing Then
If Application.Workbooks.Count (größer) 2 Then
MsgBox ("Andere Exceldateien sind offen ")
Endif
End If
Viel Erfolg
Frank.