Function und dem dazgehörigen Makro.
Beide gehören in ein normales Standard-Modul.
~begin~
Option Explicit
Function MappeOffen(MappeName As String) As Boolean
Dim StName As String
On Error GoTo Nonexistent
StName = Workbooks(MappeName).Name
MappeOffen = True
Exit Function
Nonexistent:
MappeOffen = False
End Function
Sub DateiZustand()
Dim DatNam As String
DatNam = "ProviderKosten.xls"
If MappeOffen(DatNam) = True Then
MsgBox "Datei ist bereits geöffnet !"
Else
MsgBox "Datei ist z.Zt. nicht geöffnet !"
End If
End Sub
~end~
Viel Erfolg wünscht
WernerB.
Sub pruefen
On Error Resume Next
Windows(Datei).Activate 'Datei versuchen zu aktivieren
If Err > 0 Then 'wenn Fehler, dann noch nicht geöffnet
'... hier dann datei öffnen
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen