Sub CopyIST()
Dim wshData As Worksheet
Dim rngDest As Range, rng As Range
Dim iSrcCol As Integer, iRow As Integer
Dim datValue As Date
Set wshData = Tabelle4
Set rngDest = Tabelle3.Range("B5:O25")
datValue = DateAdd("d", -13, DateAdd("d", -1, Date))
iSrcCol = 2
For Each rng In rngDest.Columns
Do While wshData.UsedRange.Columns.Count >= iSrcCol
If wshData.Cells(5, iSrcCol).Value = datValue Then
For iRow = 1 To rng.Rows.Count
rng.Cells(iRow, 1).Value = wshData.Cells(4 + iRow, iSrcCol).Value
Next
datValue = DateAdd("d", 1, datValue)
Exit Do
Else
iSrcCol = iSrcCol + 1
End If
Loop
Next
End Sub