Mappe mit Makro öffnen - falls nicht schon offen
26.04.2005 14:06:07
Martin
Ich bin nicht geübt in VBA und habe das gewünschte Makro nicht im Archiv gefunden...
Ich habe einen Befehl in der Datei "A", der mir eine bestimmte Datei "C" automatisch mit einem Makro öffnet. So weit so gut. Nun öffne ich aber eine dritte Datei "B", die auch versucht, die gleiche Datei "C" nochmals zu öffnen. Dies soll aber verhindert werden (ich habe viele Verknüpfungen auf die automatisch zu öffnende Datei, die auf verschiedene Dateien verweisen...). Die Datei A oder B, die das Makro erhält, soll am Ende wieder aktiviert sein.
Hier die Anweisungen, die problemlos funktionieren:
in DieseArbeitsmappe:
Private Sub Workbook_Open()
Call Datei_C_automatisch_öffnen
End Sub
in Modul1:
Sub Datei_C_automatisch_öffnen()
Workbooks.Open "(Pfad der Datei)\C.xls"
Windows("A").Activate
End Sub
Ist wahrscheinlich nicht optimal (halt handgestrickt...). Gibt es eine Möglichkeit zu prüfen, ob die Datei "C" schon geöffnet ist und falls dies so ist, diese Datei halt nicht öffnet?
Vielen Dank jetzt schon für Eure Hilfe!
Martin