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.
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