Datei öffnen per Makro

• Datei öffnen per Makro von Erich M. vom 09.11.2003 12:06:54
  • AW: Datei öffnen per Makro - von Hajo_Zi am 09.11.2003 12:12:12
    • DANKE - Hajo; schnelle Antwort und perfekt! o.T. - von Erich M. am 09.11.2003 12:24:13

Betrifft: Datei öffnen per Makro
von: Erich M.
Geschrieben am: 09.11.2003 12:06:54
Hallo zusammen,

habe folgenden Code zum öffnen einer weiteren Datei,
der grundsätzlich funktioniert:

Private Sub Workbook_Open()
Workbooks.Open Filename:="D:\Excel\STEUER\formeln\ESt-Formeln.xls"
End Sub

Was muss ich einbauen, dass ich keine Fehlermeldung erhalte,
wenn die Datei "ESt-Formeln" aber bereits geöffnet ist?
Mit "If" oder ähnlichen Versuchen gescheitert.

Besten Dank!

mfg
Erich

Betrifft: AW: Datei öffnen per Makro
von: Hajo_Zi
Geschrieben am: 09.11.2003 12:12:12
Hallo Erich

lasse eine schleife laufen.

Prüfen ob Datei schon offen

Private Sub Workbook_Open()
For Each x In Workbooks
If x.Name = “test.xls” Then
MsgBox „Datei ist schon geöffnet!“
GoTo weiter
End If
Next
MsgBox „Test wird automatisch geöffnet!“
Workbooks.Open FileName:=“C:\Eigene Dateien\Test.xls“
weiter:
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro



Betrifft: DANKE - Hajo; schnelle Antwort und perfekt! o.T.
von: Erich M.
Geschrieben am: 09.11.2003 12:24:13
.