Ist eine Fatei bereits offen ?
17.07.2008 08:10:00
Thomas3
ich gebe zu, ich bin zu doof....
Ich habe eine Datei, die als Master definiert ist. Über andere Dateien sollen aus der Masterdatei Daten geholt und wieder hineinkopiert werden. Das geht natürlich nur, wenn die Masterdatei geschlossen ist, weil sonst der 2. nicht sieht, was der 1. gerade ändert.
Dazu soll ein Makro abfragen, ob die Masterdatei bereits geöffnet ist.
Hier mein Code
Sub test()
Dim pfad As String
Dim datei As String
Dim dateiname As String
pfad = Cells(8, 3).Value
datei = Cells(9, 3).Value
dateiname = pfad & datei
If IsWorkbookOpen(dateiname) Then
MsgBox "test"
End If
End Sub
Public Function IsWorkbookOpen(ByRef masterdatei As String) As Boolean
On Error Resume Next
IsWorkbookOpen = Not Workbooks(masterdatei) Is Nothing
End Function
Aber, das klappt irgendiwe nicht
zieht man die MAus über den Text Not Workbooks~ zeigt es aus, dass der Bereich ausserhalb des Index liegt. Folge ist, dass die Function keinen Wert übergibt und somit die If-Schleife nichts angeben kann.
Was mache ich den falsch ?
Herzliche Grüße
Thomas