ich brauche mal wieder Eure Hilfe.
Beim öffnen einer Mappe möchte ich prüfen, ob eine oder mehrere andere (bestimmte) Mappen schon geöffnet sind.
Einerseits um ein automatisch startendes Makro nicht mehr auszuführen, andererseits sollen (in der ersten Mappe) eingegebene Daten in die neu geöffnete Mappe eingetragen werden.
Leider bekomme ich immer den Fehlercode "Laufzeitfehler 9, Index außerhalb des gültigen Bereichs"
Private Sub UserForm_Initialize()
On Error Resume Next
If Workbooks(Application.ThisWorkbook.Path & ("Stunden - ") & CVar(Range("Auswertung!B23")) & (" ") & _
CStr(Range("Auswertung!A34")) & (".xls")).Open = True Then
MsgBox ("Mappe " & CVar(Range("Auswertung!B24") & " ist geöffnet"))
End If
If Workbooks(Application.ThisWorkbook.Path & ("\Stunden - ") & CVar(Range("Auswertung!B24")) & (" ") & _
CStr(Range("Auswertung!A34")) & (".xls")).Open = True Then
MsgBox ("Mappe " & CVar(Range("Auswertung!B25") & " ist geöffnet"))
End If
If Workbooks(Application.ThisWorkbook.Path & ("\Stunden - ") & CVar(Range("Auswertung!B25")) & (" ") & _
CStr(Range("Auswertung!A34")) & (".xls")).Open = True Then
MsgBox ("Mappe " & CVar(Range("Auswertung!B26") & " ist geöffnet"))
End If
If Workbooks(Application.ThisWorkbook.Path & ("\Stunden - ") & CVar(Range("Auswertung!B26")) & (" ") & _
CStr(Range("Auswertung!A34")) & (".xls")).Open = True Then
MsgBox ("Mappe " & CVar(Range("Auswertung!B27") & " ist geöffnet"))
End If
MsgBox ("Keine anderen Mappen geöffnet")
Ich bin für jeden Vorschlag dankbar.
Gruß
Udo