Datei öffnen [Excel]

Gespeichert von Erik Wegner am/um
Body

Beschreibung

Das Makro erwartet einen Dateinamen und den Pfad zu dieser Datei als Parameter. Es prüft, ob die Datei bereits geöffnet ist und aktiviert dann dieses Fenster. Ist die Datei noch nicht geöffnet, wird sie geladen.

Quellcode
Sub springeZuDatei(pfad$, datei$)
If dateiOffen(datei$) Then
Workbooks(datei$).Activate
Else
Workbooks.Open FileName:=pfad$ + datei$
End If
End

SubFunction dateiOffen(datei$)
Dim r As Boolean
Dim w As Workbook
r = False
For Each w In Workbooks
If w.Name = datei$ Then r = True
Next w
dateiOffen = r
End Function