Hallo zusammen,
folgende Schwierigkeit bereitet mir schlaflose Nächte. In meinem Makro möchte ich Daten aus einer externen Datei „Test“ kopieren. Diese Datei soll nach Beendigung des Kopierens wieder per Funktion in denselbem Makro geschlossen werden.
Da der Arbeitsspeicher ohne Schließen nur 6 geöffnete Dateien verkraftet ist dies wichtig.
Ich wäre überglücklich, wenn mir jemand bei meinem Problem helfen könnte, da ich die Fehlermeldungen „referenced memory“ nicht mehr sehen kann.
_____________________________________________________________________
Sub DateienZusammenkopieren()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Mappe As String
Dim i As Integer
Mappe = ThisWorkbook.Name
Sheets(„test“).Activate
Range(„A2:BH65000“).Select
With Selection
.ClearContents
.ClearFormats
End With
Range(„A2“).Select
With Application.FileSearch
.NewSearch
.LookIn = „U:\Project_PA\Analysis_Concepts\Test“
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Range(„A7:A56 , A58:A107 , A110:A159 , A161:A210 , A108 ,
A211:A212“) _
.EntireRow.Copy
Workbooks(Mappe).Activate
Sheets(„test“).Activate
ActiveSheet.Paste (hier schließen)
Application.CutCopyMode = False
ActiveCell.Offset(203, 0).Select
Next i
End With
Call GefilterteDatenKopieren
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub