hier mal ein Code der ja schon fast Perfekt ist. Leider bekomme ich es nicht hin, die geöffnete Datei wieder zu schließen. Da ich Sie ja irgendwie ansprechen muss.
Gibt es eine Möglichkeit, mit einem Zellbezug, die Datei anzusprechen?
Vielen dank erstmal für die Hilfe
Sub Instandhaltung()
Application.ScreenUpdating = False
Worksheets("Hilfe").Visible = True
Sheets("Hilfe").Select
Range("BJ6:BJ31").ClearContents
Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object
Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder("...
.\02 Fahrzeuginstandhaltung\")
Set objDateienliste = objVerzeichnis.Files
lngZeile = 6
For Each objDatei In objDateienliste
If Not objDatei Is Nothing Then
Sheets("Hilfe").Select
ActiveSheet.Cells(lngZeile, 62) = objDatei.Name
lngZeile = lngZeile + 1
End If
Next objDatei
Dim Wb As Workbook
Set Wb = Workbooks.Open("...
..\02 Fahrzeuginstandhaltung\" & [BT5])
Range("A6").Activate
Sheets("Zusammenfassung").ShowAllData
Cells.Select
Selection.Copy
Windows("Ein- und Auslauf.xlsm").Activate
Worksheets("Instandhaltung").Visible = True
Sheets("Instandhaltung").Select
Cells.Select
ActiveSheet.Paste
Worksheets("Instandhaltung").Visible = False
Worksheets("Hilfe").Visible = False
Sheets("Zuordnung").Select
Application.ScreenUpdating = True
End Sub