ich möchte testen ob eine Datei offen ist, falls ja dann Msgbox "bla bla" falls nicht ...
Wie geht das ?
Danke
Nico
ich möchte testen ob eine Datei offen ist, falls ja dann Msgbox "bla bla" falls nicht ...
Wie geht das ?
Danke
Nico
wenn Du in der Recherche mal den Suchbegriff "Datei offen" eingegeben hättest, hättest Du u.a. folgendes gefunden:
Gruß
Martin Beck
das Ganze kann man über eine Funktion prüfen:
Function OpenBook(sBook As String) As Boolean
On Error Resume Next
sStr = Workbooks(sBook).Name
On Error GoTo ErrorHandler
Workbooks.Open sBook
OpenBook = True
Exit Function
ErrorHandler:
OpenBook = False
End Function
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de
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