Michael
Michael
Function func_IsBookOpen(FileName As String) As Boolean
'eine Funktion, die Prüft ob eine Datei schon geöffnet ist.
Dim s As String
On Error GoTo Nonexistent
s = Workbooks(FileName).Name
func_IsBookOpen = True
Exit Function
Nonexistent:
func_IsBookOpen = False
End Function
Sub Eingabeformular()
Dim Datei, Dateiname As String
Dateiname = "Eingabeformular.xls"
Datei = Cells(43, 2).Value & Dateiname
If func_IsBookOpen(Dateiname) = False Then
'Prüfung, ob eine Datei mit diesem Namen schon geöffnet ist?
'Wenn nicht (=False) dann öffne Datei inkl. Pfadname
Workbooks.Open FileName:=Datei
Else: Workbooks(Dateiname).Activate
End If
End Sub
Namen und Pfad musst Du natürlich anpassen.
VG,
Alex
Michael
Alex