Arbeitsmappe nach Namen suchen

Zur Navigation springen Zur Suche springen
Diese Funktion überprüft, ob eine Excel-Datei mit einem bestimmen Namen geöffnet ist und liefert entweder True oder False zurück. Als Eingabeparameter wird der vollständige Dateiname verlangt (ohne Pfadangabe).
Function ArbeitsmappeOffen(AMappe As String) As Boolean
  On Error GoTo Fehler
  mappetext = Workbooks(AMappe).Name
  ArbeitsmappeOffen = True
  Exit Function

Fehler:
  ArbeitsmappeOffen = False
End Function