2 schleifen
27.05.2008 10:21:17
Köhler
wie könnte ich diesen Spagetticode verkürzen, bzw. 2 schleifen ineinandergreifen lassen?
For i = 1 To 850
If Sheets("data ").Cells(i, 1) = Sheets("data ").Cells(i, 16) Then
If Sheets("data ").Cells(4, 17).Value = "01/01/2008" Then
Worksheets("data ").Cells(i, 17).Copy Destination:= _
Worksheets("data ").Cells(i, 3)
ElseIf Sheets("data ").Cells(4, 17).Value = "01/02/2008" Then
Worksheets("data ").Cells(i, 17).Copy Destination:= _
Worksheets("data ").Cells(i, 4)
ElseIf Sheets("data ").Cells(4, 17).Value = "01/03/2008" Then
Worksheets("data ").Cells(i, 17).Copy Destination:= _
Worksheets("data ").Cells(i, 5)
ElseIf Sheets("data ").Cells(4, 17).Value = "01/04/2008" Then
Worksheets("data ").Cells(i, 17).Copy Destination:= _
Worksheets("data ").Cells(i, 6)
ElseIf Sheets("data ").Cells(4, 17).Value = "01/05/2008" Then
Worksheets("data ").Cells(i, 17).Copy Destination:= _
Worksheets("data ").Cells(i, 7)
ElseIf Sheets("data ").Cells(4, 17).Value = "01/06/2008" Then
Worksheets("data ").Cells(i, 17).Copy Destination:= _
Worksheets("data ").Cells(i, 8)
ElseIf Sheets("data ").Cells(4, 17).Value = "01/07/2008" Then
Worksheets("data ").Cells(i, 17).Copy Destination:= _
Worksheets("data ").Cells(i, 9)
ElseIf Sheets("data ").Cells(4, 17).Value = "01/08/2008" Then
Worksheets("data ").Cells(i, 17).Copy Destination:= _
Worksheets("data ").Cells(i, 10)
ElseIf Sheets("data ").Cells(4, 17).Value = "01/09/2008" Then
Worksheets("data ").Cells(i, 17).Copy Destination:= _
Worksheets("data ").Cells(i, 11)
ElseIf Sheets("data ").Cells(4, 17).Value = "01/10/2008" Then
Worksheets("data ").Cells(i, 17).Copy Destination:= _
Worksheets("data ").Cells(i, 12)
ElseIf Sheets("data ").Cells(4, 17).Value = "01/11/2008" Then
Worksheets("data ").Cells(i, 17).Copy Destination:= _
Worksheets("data ").Cells(i, 13)
ElseIf Sheets("data ").Cells(4, 17).Value = "01/12/2008" Then
Worksheets("data ").Cells(i, 17).Copy Destination:= _
Worksheets("data ").Cells(i, 14)
Else
Worksheets("data ").Cells(i, 16).Font.ColorIndex = 3
End If
Next i