wie lautet der Code wenn ich aus einem Ordner eine Mappe nach der anderen öffne, etwas verarbeite und die aktive Mappe wieder schliess um die nächste zu öffnen bis alle Mappen im Ordner verarbeitet sind. Mein Code schaut wie folgt aus:
Sub Zusammenspielen()
Dim strP As String, strP2 As String, strF As String, ii As Integer, strNewFile As String, C As Range
strP = "C:\Temp\IE-LS\"
strF = Dir(strP & "IE-LS*.xlsm ")
While strF ""
Workbooks.Open strP & strF, False, True
ii = ii + 1
For Each C In Range("A4:DW5611")
Sheets("Sths").Select
ActiveWindow.SmallScroll ToRight:=-1
Rows("4:5611").Select
Selection.Copy
Windows("Projektübersicht.xlsm").Activate
Rows("28:28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Rows("28:28").Select
Selection.Insert Shift:=xlDown
Next
ii = ii + 1
Application.DisplayAlerts = False
With ActiveWorkbook
strNewFile = Left(.FullName, InStrRev(.FullName, ".")) & "xlsm"
.SaveAs strNewFile, FileFormat:=xlText, CreateBackup:=False
.Close False
End With
Application.DisplayAlerts = True
strF = Dir()
Wend
Er öffnet mir die erste Mappe, macht die Verarbeitung und speichert dann die Mappe, in der alles gesammelt warden soll ab und das wars. Er soll aber nach der Verarbeitung die nächste Mappe einlesen und Verarbeiten.
Was mache ich verkehrt?
Vielen Dank im Voraus bereits für eure Hilfe
Susanne