Office: Frage zu VBA, On Error GoTo...

Hallo,
in meinem Makro hab ich folgenden Code:

Code:

Function MappeGeoeffnet(strName As String) As Boolean
    On Error GoTo fehler
    MappeGeoeffnet = True
    Windows(strName).Activate
    Exit Function
fehler:
    MappeGeoeffnet = False
End Function
Sub Start12()
Dim lng As Long
Dim B As Boolean
B = MappeGeoeffnet("Mappe1.xls")
If B = True Then
MsgBox "Test"
Else
MsgBox "Test2"
End If
End Sub

Wieso springt On Error immer direkt auf Fehler und setzt so das MappeGeöffnet auf False??
Ich möchte mit dem Code überprüfen ob eine Datei geöffnet ist oder halt nicht...
Ich benutze Excel 2000
Danke

 

Hi Marius,

vielleicht wäre das eine Möglichkeit:

Code:

Sub Pruefen()
   OffenPruefen "Mappe2"
End Sub

Function OffenPruefen(strMappe As String)
   Dim wbkMappe As Workbook
   On Error Resume Next
   Set wbkMappe = Workbooks(strMappe)
   On Error GoTo 0
   If wbkMappe Is Nothing Then
      MsgBox "nicht geöffnet"
   Else
      MsgBox "Mappe geöffnet"
   End If
   Set wbkMappe = Nothing
End Function

Bis später,
Karin

 

Danke, genau das hab ich gesucht!

 

Hi Marius,

einfach mal als Ergänzung und Hinweis: es gibt noch eine andere Möglichkeit und diese könnte wie folgt aussehen:

Code:

Function OffenPruefen(strMappe As String)
   Dim wbkMappe As Workbook
   Dim blnMappe As Boolean
   For Each wbkMappe In Workbooks
      If wbkMappe.Name = strMappe Then
         blnMappe = True
         Exit For
      End If
   Next wbkMappe
   If blnMappe = False Then
      MsgBox "nicht geöffnet"
   Else
      MsgBox "Mappe geöffnet"
   End If
End Function

In diesem Fall wird On Error generell umgangen. Tatsache ist, dass man besser auf On Error verzichtet, wenn es auch eine andere Möglichkeit gibt, das selbe Zeil zu erreichen. On Error- und On Error Goto-Anweisungen bergen Gefahren in sich, die man als unbedarfter Programmierer teilweise nicht voraussehen kann, weshalb man sie lieber vermeiden sollte, es sei denn man kann die Wirkungsweise tatsächlich ganz genau bestimmen. Klar, könnte es im gegebenen Fall sein, dass bei vielen offenen Arbeitsmappen dieser Code etwas länger benötigt, aber das sollte man in Kauf nehmen können.

Bis später,
Karin