Code verkürzen
11.03.2004 15:58:50
Isabell
immer wiederholt, nur das sich jedesmal die Zeile um 2, und die Spalte um 1
erweitert.
Könnte das jemand kürzer schreiben ?
Gruß
Isabell
Private Sub CommandButton1_Click()
AplicationScreenapdating = False
Dim i As Integer, j As Integer, k As Integer, l As Integer
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("A" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 7, (5 * k) - 1).Value
Next
k = 7
Worksheets("Auswertung").Range("A" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 7, 33).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("B" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 9, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("B" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 9, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("C" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 11, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("C" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 11, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("D" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 13, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("D" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 13, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("E" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 15, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("E" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 15, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("F" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 17, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("F" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 17, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("G" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 19, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("G" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 19, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("H" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 21, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("H" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 21, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("I" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 23, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("I" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 23, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("J" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 25, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("J" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 25, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("K" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 27, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("K" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 27, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("L" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 29, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("L" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 29, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("M" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 31, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("M" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 31, 35).Value
j = j + 35
l = l + 7
Next
AplicationSreenapdating = True
End Sub