mit folgendem Code versuche ich aus Mappe xy eine andere Mappe (Test1) zu schliessen wenn sie bereits geöffnet ist.
Jedoch: selbst wenn die Mappe Test1 geöffnet ist,
kommt immer Mappe nicht geöffnet
Kann mir hier jemand helfen?
Sub schliessen()
Dim wb As Workbook
Dim pfad As String
pfad = ThisWorkbook.Path & "\"
MsgBox pfad & "Test1" & ".xls"
For Each wb In Workbooks
If wb.name = pfad & "Test1" & ".xls" Then
MsgBox "Arbeitsmappe Test1 ist geöffnet.Wird jetzt geschlossen"
wb.Close SaveChanges:=True
End If
If Not wb.name = pfad & "Test1" & ".xls" Then
MsgBox "Arbeitsmappe Test1 ist nicht geöffnet"
End If
Next wb
End Sub