Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Prüfen, ob Arbeitsmappe geöffnet und wenn nein, öffnen

Gruppe

Öffnen

Problem

Es soll geprüft werden, ob eine Datie mit dem Namen Test.xls geöffnet ist. Wenn ja, ist sie zu aktivieren, wenn nein zu öffnen. Existiert die Datei nicht im Verzeichnis dieser Arbeitsmappe, ist eine entsprechende Meldung auszugeben.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub DateiOeffnen()
   Dim sFile As String, sPath As String
   sFile = "Test.xls"
   sPath = ThisWorkbook.Path & "\" & sFile
   If WkbExists("Test.xls") = False Then
      If Dir(sPath) = "" Then
         MsgBox "Datei " & sPath & " wurde nicht gefunden!"
      Else
         Workbooks.Open sPath
      End If
   Else
      Workbooks(sFile).Activate
   End If
End Sub

Private Function WkbExists(sFile As String) As Boolean
   Dim wkb As Object
   On Error Resume Next
   Set wkb = Workbooks(sFile)
   If Not wkb Is Nothing Then
      WkbExists = True
   End If
   On Error GoTo 0
End Function