Arbeitsmappe nach Namen suchen
Zur Navigation springen
Zur Suche springen
Function ArbeitsmappeOffen(AMappe As String) As Boolean
On Error GoTo Fehler
mappetext = Workbooks(AMappe).Name
ArbeitsmappeOffen = True
Exit Function
Fehler:
ArbeitsmappeOffen = False
End Function