Clever-Excel-Forum

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

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.

CHASiN1994

MisterBurns