An Boris.... äh, an Alle... ;-) MSGBOX/DATEI ÖFF
25.02.2004 14:48:25
Michael S.
Es soll beim Öffnen einer Datei vom Jahr 2004 die Datei von 2003 geöffnet werden. Dazu habe ich ein wenig gegoogelt und bin auf folgenden Code gestoßen:
ALLES UNTER "DIESE ARBEITSMAPPE" :
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 Workbook_open()
Dim DatNam As String
DatNam = "MappeA.xls"
If MappeOffen(DatNam) = True Then
MsgBox "Datei ist geöffnet !"
Else
MsgBox "Datei ist nicht geöffnet !"
End If
End Sub
Jetzt möchte ich aber noch wissen, wie ich es anstelle, dass gepfrüft wird, ob die Datei geöffnet ist (bzw. ich weiß, dass der obige Code das prüft)
WENN NEIN, dann soll eine MSGBOX kommen: SOLL DATEI GEÖFFNET WERDEN? WENN JA, DANN ÖFFNEN, WENN NEIN, dann natürlich nicht.....
Vielen Dank!
Michael
Anzeige