Datei schliessen, wenn Name in Range enthalten
28.05.2013 10:23:32
Peter
Im aktiven Workbook habe ich ein benannter Spaltenbereich ("od_FileRelevant") mit Dateinamen, die nicht geschlossen werden sollen.
Wie kann ich die offenen Dateien mit dieser Liste abgleichen und Dateien, die nicht im Range enthalten sind schliessen (ohne zu speichern)?
For Each objWB In Application.Workbooks
If Windows(objWB.Name).Visible And objWB.Name <> ThisWorkbook.Name Then
? --->'If objWB.Name = nicht in Range("od_FileRelevant") vorkommt dann ... Then
objWB.Close False
End If
End If
Next
Danke und Gruss, Peter