Datei öffnen [Excel]

Submitted by Erik Wegner on

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
Categories