Sub Schleife()
Dim i As Long

For i = 1 To 3
    Debug.Print i
' Warte immer x sekunden
    newHour = Hour(Now())
    newMinute = Minute(Now())
    newSecond = Second(Now()) + 5
    waitTime = TimeSerial(newHour, newMinute, newSecond)
    Application.Wait waitTime

Worksheets("A").Range("D4").Value = "Syncing"
Worksheets("B").Range("D4").Value = "Syncing"
Worksheets("C").Range("D4").Value = "Syncing"
Worksheets("D").Range("D4").Value = "Syncing"
Worksheets("E").Range("D4").Value = "Syncing"
ActiveWorkbook.RefreshAll
Worksheets("A").Range("D4").Value = FileDateTime("X:\A.csv")
Worksheets("B").Range("D4").Value = FileDateTime("X:\B.csv")
Worksheets("C").Range("D4").Value = FileDateTime("X:\C.csv")
Worksheets("D").Range("D4").Value = FileDateTime("X:\D.csv")
Worksheets("E").Range("D4").Value = FileDateTime("X:\E.csv")

Next

    Call Track_History

End Sub
-----------------------------------------------------

Private Sub Track_History()
Line = 2
Do Until Sheets("Track_History").Cells(Line, 1) = ""
    If Sheets("Track_History").Cells(Line, 1) = Date Then Exit Sub
    Line = Line + 1
Loop

Sheets("Track_History").Cells(Line, 1) = Date
Sheets("Track_History").Cells(Line, 2) = Sheets("Overview").Range("H13").Value

'A
Sheets("Track_History").Cells(Line, 3) = Sheets("Overview").Range("I11").Value
Sheets("Track_History").Cells(Line, 4) = Sheets("Overview").Range("L11").Value
Sheets("Track_History").Cells(Line, 5) = Sheets("Overview").Range("M11").Value
Sheets("Track_History").Cells(Line, 6) = Sheets("Overview").Range("O11").Value
Sheets("Track_History").Cells(Line, 7) = Sheets("Overview").Range("R11").Value
Sheets("Track_History").Cells(Line, 8) = Sheets("Overview").Range("U11").Value
Sheets("Track_History").Cells(Line, 9) = Sheets("Overview").Range("Y11").Value

'B
Sheets("Track_History").Cells(Line, 10) = Sheets("Overview").Range("I17").Value
Sheets("Track_History").Cells(Line, 11) = Sheets("Overview").Range("L17").Value
Sheets("Track_History").Cells(Line, 12) = Sheets("Overview").Range("M17").Value
Sheets("Track_History").Cells(Line, 13) = Sheets("Overview").Range("O17").Value
Sheets("Track_History").Cells(Line, 14) = Sheets("Overview").Range("R17").Value
Sheets("Track_History").Cells(Line, 15) = Sheets("Overview").Range("U17").Value
Sheets("Track_History").Cells(Line, 16) = Sheets("Overview").Range("Y17").Value

usw


'ActiveWorkbook.Save

    Worksheets("Track_History").Select

End Sub