Public
Sub
CreateAgenda()
Dim
i
As
Integer
, l
As
Integer
Dim
LastLineTS
As
Long
, LastLineAG
As
Long
Dim
LastLineAGENDA
As
Long
, LastLineTHEMENSPEICHER
As
Long
LastLineTHEMENSPEICHER = ActiveWorkbook.Sheets(1).Cells(Rows.Count, 4).
End
(xlUp).Row
LastLineAGENDA = ActiveWorkbook.Sheets(2).Cells(Rows.Count, 4).
End
(xlUp).Row
Sheets(1).
Select
l = 7
For
i = 7
To
LastLineTHEMENSPEICHER
Step
1
If
Sheets(2).Cells(4, 5) = Sheets(1).Cells(i, 10)
Then
Range(Cells(i, 2), Cells(i, 12)).Copy
Sheets(2).Cells(l, 2).PasteSpecial xlPasteValues
l = l + 1
End
If
Next
i
End
Sub