Mit nachstehendem Code möchte ich die mappe 3 öffnen. Bei der Einrichtung hat das auch geklappt. Als ich aber die zwei Dateien auf einen anderen Rechner kopierte, kam die Fehlermeldung beim Öffnen. Ist die Datei jedoch bereits offen, kann ich wie gewünscht zwischen den Dateien wechseln.
Kann mir jemand einen Tipp geben, warum das beim Erstversuch nicht funktioniert bzw. wie der Code geändert werden muss?
Private Sub CommandButton1_Click()
Dim wbAct As Workbook
Dim strWB As String
strWB = "Mappe3.xls"
On Error Resume Next
Set wbAct = Workbooks(strWB)
wbAct.Activate
If Err > 0 Then
Err.Clear
On Error Resume Next
Workbooks.Open strWB
If Err > 0 Then
MsgBox "Datei " & strWB & " existiert nicht"
Err.Clear
End If
End If
Unload UserForm1
On Error GoTo 0
End Sub
Vielen Dank!
Gruß
Stefan