Add new comment

Datei öffnen [Excel]

Submitted by Erik Wegner on
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
CAPTCHA
This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.