Gespeichert von Erik Wegner
am/um Do., 01.04.2010 - 22:27
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