Guten Morgen,
ich habe über das Forum folgendes Makro zusammengebastelt:
Dim Datei, Fname As String
Dim wb As Workbook
Dim wbDatabase As Workbook
Dim wsDatabase As Worksheet
Datei = "Zubehör.xls" ' Name der Datenbank
Fname = "C:\Verkauf\" & Datei ' kompletter Pfad der Datenbank
bolOpen = False
For Each wb In Application.Workbooks
If wb.Name = Datei Then ' Datenbank schon geöffnet?
bolOpen = True
'MsgBox "Datei ist geöffnet !"
Exit For
End If
Next
If bolOpen = False Then Workbooks.Open Filename:=Fname
End Sub
Nun möchte ich wenn die Datei nicht vorhanden ist eine MSGBOX kommt, Datei nicht vorhanden, Wo setze ich dies MSGBOX hin ?
Bei mir kommt eine Fehlermeldung, DAtei nicht vorhanden und das Makro muß ich mit "Benden" drücken beenden.
Gruß Walter MB