Workbook aus Zellen öffnen und schließen

[CHASiN1994]

Guten Tag liebe Exceller,

ich habe ein Makro, dass bestimmte Dateien mit variablem Dateipfad öffnet...

Code:

Sub Berechnen()

Application.Workbooks.Open Filename:= _
 ThisWorkbook.Worksheets("Notwendige Daten").Range("B27").Value
 On Error Resume Next
 Application.Workbooks.Open Filename:= _
 ThisWorkbook.Worksheets("Notwendige Daten").Range("B28").Value
 On Error Resume Next

End Sub

Excel öffnet also die Datei, die hinter =und(B27;B28) liegt

Nun will ich den gleichen Code für diese Datei zum schließen allerdings funktioniert das nicht so richtig..

Code:

Sub Closen()
Application.Workbooks.Close Filename:= _
 ThisWorkbook.Worksheets("Notwendige Daten").Range("B27").Value
 On Error Resume Next
 Application.Workbooks.Close Filename:= _
 ThisWorkbook.Worksheets("Notwendige Daten").Range("B28").Value
 On Error Resume Next

End sub

ich denke, dass liegt an dem platten ".close"

kann mir jmd helfen?

beste grüße

[MisterBurns]

Code:

Sub DateiSchließen_ohne_speichern()
Dim Dateiname as String
Dim i as integer

On Error Resume Next
For i = 27 to 28
    Dateiname = ThisWorkbook.Worksheets("Notwendige Daten").Cells(i, 2).Text
    Workbooks(Dateiname).Close SaveChanges:=False 'Alternativ auf True setzen um zu speichern
Next i

End Sub

On Error ist zwar ziemlich bäh, aber für die Kleinigkeit sollte es wohl egal sein. Richtig wäre es zu prüfen, ob die Datei geöffnet ist und wenn ja, sie dann zu schließen.