Microsoft Excel

Herbers Excel/VBA-Archiv

Überprüfen, ob Arbeitsmappe geöffnet

Betrifft: Überprüfen, ob Arbeitsmappe geöffnet von: Rudi
Geschrieben am: 16.08.2004 12:37:54

Ich möchte in einem Makro überprüfen, ob eine gewisse Excel-Datei x schon geöffnet ist. Aufgrund des Test-Ausgangs öffnet das Makro dann die Datei (oder eben nicht). Muss ich eine Schleife schreiben, oder gibt es hier eine Eigenschaft?
Danke für eure Hilfe!
Rudi

  


Betrifft: AW: Überprüfen, ob Arbeitsmappe geöffnet von: Dieter Maj
Geschrieben am: 16.08.2004 12:43:09

Hallo Rudi
hier eine kleine Funktion

Function MAPPEOFFEN(MappeName As String) As Boolean
Dim stName As String
On Error GoTo Nonexistent
stName = Workbooks(MappeName).name
MAPPEOFFEN = True
Exit Function
Nonexistent:
MAPPEOFFEN = False
End Function


Gruß Dieter


  


Betrifft: AW: Überprüfen, ob Arbeitsmappe geöffnet von: Check_IT
Geschrieben am: 16.08.2004 12:51:50

Ich nutze diese Funktion. Sie gibt den Index der offenen Datei zurück bzw. 0, wenn das WB noch nicht geöffnet wurde

Function IsWBOpen(ByVal WBName As String) As Integer
   For i = 1 To Application.Workbooks.Count
     If Application.Workbooks(i).FullName = WBName Then
        IsWBOpen = i
        Exit Function
     End If
   Next i
   IsWBOpen = 0
End Function



  


Betrifft: AW: Überprüfen, ob Arbeitsmappe geöffnet von: Rudi
Geschrieben am: 16.08.2004 13:35:32

Vielen Dank für eure Hilfe! Gruss Rudi


 

Beiträge aus den Excel-Beispielen zum Thema "Überprüfen, ob Arbeitsmappe geöffnet"