Hallo zusammen:

Ich habe folgendes Problem: In ca 200 csv Dateien möchte ich jeweils zwei Werte berechnen, diese Werte speichern und in eine Masterfile einfügen. Dazu habe ich folgende Schleife:

Option Explicit
Const strPath As String = "C:\Flexsim\Makros\PILOT_STUDY_1\"
Sub Main()
    Dim strDateiname As String
    Dim wkbBook As Workbook
    Dim lngLastRowQ As Long
    Dim lngLastRowZ As Long
    Dim lngLastCol As Long
    Dim intCalc As Integer
    Dim LetzteZeile As Long
    On Error GoTo Fin
    With Application
        .ScreenUpdating = False
        .AskToUpdateLinks = False
        .EnableEvents = False
        intCalc = .Calculation
        .Calculation = xlCalculationManual
        .DisplayAlerts = False
    End With
    'strDateiname = Dir$("\C:\Flexsim\Makros\PILOT_STUDY_1\" & "\*.csv")
    strDateiname = Dir$(strPath & "*.csv")
    Do While strDateiname <> ""
        If strDateiname <> ThisWorkbook.Name Then
            Set wkbBook = Workbooks.Open(strPath & strDateiname)
            
'Mein Code START

    Range("E4373").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(R[-4371]C[-2]:RC[-2])"
    Range("E4373").Select
    Selection.AutoFill Destination:=Range("E4373:F4373"), Type:=xlFillDefault
    Range("E4373:F4373").Select
    Selection.Copy
    Windows("Auswertung_PCSimon.xlsm").Activate
    LetzteZeile = Cells(Rows.Count, 4).End(xlUp).Row
    Range("D" & LetzteZeile + 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

'Mein Code ENDE

            wkbBook.Close True ' Oder False, wenn nicht gespeichert werden soll
            Set wkbBook = Nothing
        End If
        strDateiname = Dir$()
    Loop
Fin:
    Set wkbBook = Nothing
    With Application
        .ScreenUpdating = True
        .AskToUpdateLinks = True
        .EnableEvents = True
        .Calculation = intCalc
        .DisplayAlerts = True
    End With
    If Err.Number <> 0 Then MsgBox "Error: " & _
        Err.Number & " " & Err.Description
End Sub

Die Pfade funktionieren alle gut. Das Makro greift auf die gewünschten csv Files zu und man kann auch erkennen, dass die gewünschten Zielzellen in der Masterfile (Auswertung_PCSimon) zwar markiert werden aber nicht befüllt. Warum ist das so? 

Meine Vermutung ist, dass der Fehler im mittleren Bereich ('Mein Code START - ENDE) sich befindet. Höchstwahrscheinlich ist etwas mit der Referenzierung auf die Auswertung_PCSimon.xslm Datei nicht ok.

Habt ihr vielleicht einen Hinweis für mich?

Vielen, vielen Dank für euere Hilfe!

LG

Simon