VBA-Datei schließen

Forumthread: VBA-Datei schließen

VBA-Datei schließen

27.05.2019 15:51:07

Andreas

Hallo,
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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA-Datei schließen

27.05.2019 16:03:28

UweD
AW: VBA-Datei schließen

27.05.2019 16:32:53

Andreas
Prima! Danke für die Rückmeldung. owT

27.05.2019 16:46:43

UweD

AW: VBA-Datei schließen

27.05.2019 16:03:28

UweD

Hallo
auf select und activate kann in 99% der Fälle verzichtet werden.
Hiermal den code noch etwas vereinfacht. Ist aber ungetestet.....

Sub Instandhaltung()

    Application.ScreenUpdating = False
    
    Worksheets("Hilfe").Visible = True 'brauchst du nicht unbedingt 
    
    
    Sheets("Hilfe").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").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 'brauchst du nicht 
    With Sheets("Zusammenfassung")
        .ShowAllData
        .Cells.Copy Workbooks("Ein- und Auslauf.xlsm").Sheets("Instandhaltung").Cells(1, 1)
            
     End With
            
     Wb.Close savechanges:=True 'oder false 
     
     
     Sheets("Zuordnung").Select
        
    Application.ScreenUpdating = True

End Sub

LG UweD

AW: VBA-Datei schließen

27.05.2019 16:32:53

Andreas

Wie geil ist das denn. Ich danke dir für die extrem schnelle Antwort

Prima! Danke für die Rückmeldung. owT

27.05.2019 16:46:43

UweD

Beliebteste Forumthreads (12 Monate)

Forumthread: VBA-Datei schließen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread