Von |
Manolo |
Am |
17. August 2008 um 09:03:33 |
Frage |
Hallo Zusammen,
ich hätte gern durch eine Funktion die Dateiname überprüft.
Kann mir jemand helfen? vielen Dank in Voraus.
Public Const DocOriginal as String ="meineDocument.xlsm"
Public Funktion Document(DocActuell as string) as Boolean DocActuell = DocOriginal End funktion
Sub NameUeberpruefen() if Document(thisworkbook.name)= True msgbox "OK" else msgbox "Non-OK" end if
|
|