Datei öffnen per Makro

Forumthread: Datei öffnen per Makro
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Datei öffnen per Makro

09.11.2003 13:06:54

Erich M.

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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datei öffnen per Makro

09.11.2003 13:12:12

Hajo_Zi
DANKE - Hajo; schnelle Antwort und perfekt! o.T.

09.11.2003 13:24:13

Erich M.

AW: Datei öffnen per Makro

09.11.2003 13:12:12

Hajo_Zi

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

DANKE - Hajo; schnelle Antwort und perfekt! o.T.

09.11.2003 13:24:13

Erich M.

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!