Hi fellows,
is there a way to shorten this kode down,- maby a loop or som ?
i havent found a solution yet,- so ned a little help pls.(im not even
finish yet :-) )

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E8").Value < "" Then

If Cells(8, 3) = Sheets(3).Cells(3, 2) And Cells(8, 4) = Sheets(3).Cells(3,
5) Then Sheets(2).Cells(2, 3 + Month(Now())) = Sheets(2).Cells(2, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(3, 2) And Cells(8, 4) = Sheets(3).Cells(4,
5) Then Sheets(2).Cells(3, 3 + Month(Now())) = Sheets(2).Cells(3, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(3, 2) And Cells(8, 4) = Sheets(3).Cells(5,
5) Then Sheets(2).Cells(4, 3 + Month(Now())) = Sheets(2).Cells(4, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(3, 2) And Cells(8, 4) = Sheets(3).Cells(6,
5) Then Sheets(2).Cells(5, 3 + Month(Now())) = Sheets(2).Cells(5, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(3, 2) And Cells(8, 4) = Sheets(3).Cells(7,
5) Then Sheets(2).Cells(6, 3 + Month(Now())) = Sheets(2).Cells(6, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(3, 2) And Cells(8, 4) = Sheets(3).Cells(8,
5) Then Sheets(2).Cells(7, 3 + Month(Now())) = Sheets(2).Cells(7, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(3, 2) And Cells(8, 4) = Sheets(3).Cells(9,
5) Then Sheets(2).Cells(8, 3 + Month(Now())) = Sheets(2).Cells(8, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(3, 2) And Cells(8, 4) = Sheets(3).Cells(10,
5) Then Sheets(2).Cells(9, 3 + Month(Now())) = Sheets(2).Cells(9, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(3, 2) And Cells(8, 4) = Sheets(3).Cells(11,
5) Then Sheets(2).Cells(10, 3 + Month(Now())) = Sheets(2).Cells(10, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(3, 2) And Cells(8, 4) = Sheets(3).Cells(12,
5) Then Sheets(2).Cells(11, 3 + Month(Now())) = Sheets(2).Cells(11, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
's2
If Cells(8, 3) = Sheets(3).Cells(4, 2) And Cells(8, 4) = Sheets(3).Cells(3,
5) Then Sheets(2).Cells(14, 3 + Month(Now())) = Sheets(2).Cells(14, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(4, 2) And Cells(8, 4) = Sheets(3).Cells(4,
5) Then Sheets(2).Cells(15, 3 + Month(Now())) = Sheets(2).Cells(15, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(4, 2) And Cells(8, 4) = Sheets(3).Cells(5,
5) Then Sheets(2).Cells(16, 3 + Month(Now())) = Sheets(2).Cells(16, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(4, 2) And Cells(8, 4) = Sheets(3).Cells(6,
5) Then Sheets(2).Cells(17, 3 + Month(Now())) = Sheets(2).Cells(17, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(4, 2) And Cells(8, 4) = Sheets(3).Cells(7,
5) Then Sheets(2).Cells(18, 3 + Month(Now())) = Sheets(2).Cells(18, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(4, 2) And Cells(8, 4) = Sheets(3).Cells(8,
5) Then Sheets(2).Cells(19, 3 + Month(Now())) = Sheets(2).Cells(19, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(4, 2) And Cells(8, 4) = Sheets(3).Cells(9,
5) Then Sheets(2).Cells(20, 3 + Month(Now())) = Sheets(2).Cells(20, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(4, 2) And Cells(8, 4) = Sheets(3).Cells(10,
5) Then Sheets(2).Cells(21, 3 + Month(Now())) = Sheets(2).Cells(21, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(4, 2) And Cells(8, 4) = Sheets(3).Cells(11,
5) Then Sheets(2).Cells(22, 3 + Month(Now())) = Sheets(2).Cells(22, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(4, 2) And Cells(8, 4) = Sheets(3).Cells(12,
5) Then Sheets(2).Cells(23, 3 + Month(Now())) = Sheets(2).Cells(23, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
's3
's4
'and so on until 20
'20
If Cells(8, 3) = Sheets(3).Cells(22, 2) And Cells(8, 4) = Sheets(3).Cells(3,
5) Then Sheets(2).Cells(230, 3 + Month(Now())) = Sheets(2).Cells(230, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(22, 2) And Cells(8, 4) = Sheets(3).Cells(4,
5) Then Sheets(2).Cells(231, 3 + Month(Now())) = Sheets(2).Cells(231, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(22, 2) And Cells(8, 4) = Sheets(3).Cells(5,
5) Then Sheets(2).Cells(232, 3 + Month(Now())) = Sheets(2).Cells(232, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(22, 2) And Cells(8, 4) = Sheets(3).Cells(6,
5) Then Sheets(2).Cells(233, 3 + Month(Now())) = Sheets(2).Cells(233, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(22, 2) And Cells(8, 4) = Sheets(3).Cells(7,
5) Then Sheets(2).Cells(234, 3 + Month(Now())) = Sheets(2).Cells(234, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(22, 2) And Cells(8, 4) = Sheets(3).Cells(8,
5) Then Sheets(2).Cells(235, 3 + Month(Now())) = Sheets(2).Cells(235, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(22, 2) And Cells(8, 4) = Sheets(3).Cells(9,
5) Then Sheets(2).Cells(236, 3 + Month(Now())) = Sheets(2).Cells(236, 3 +
Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(22, 2) And Cells(8, 4) =
Sheets(3).Cells(10, 5) Then Sheets(2).Cells(237, 3 + Month(Now())) =
Sheets(2).Cells(237, 3 + Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(22, 2) And Cells(8, 4) =
Sheets(3).Cells(11, 5) Then Sheets(2).Cells(238, 3 + Month(Now())) =
Sheets(2).Cells(238, 3 + Month(Now())) + Sheets(1).Cells(8, 5)
If Cells(8, 3) = Sheets(3).Cells(22, 2) And Cells(8, 4) =
Sheets(3).Cells(12, 5) Then Sheets(2).Cells(239, 3 + Month(Now())) =
Sheets(2).Cells(239, 3 + Month(Now())) + Sheets(1).Cells(8, 5)

End If
Sheets(1).Cells(8, 5) = ""
End Sub