Clever-Excel-Forum

Seiten: 1 2

Jap das meinte ich mit den Bereichen. Brachte bei mir leider keine Änderung.

Hallöchen,

bei mir läuft der Code anschließend durch. Ich habe zum Test ca. 200x die 6 in Spalte J eingetragen.
Wichtig ist, dass Du die erste 177 änderst. Unten die Zeile ist irrelevant.

Option Base 1

Code:
Sub Daten2()

Z = Worksheets("Daily Management").[A1:CZ9999]

Q = Worksheets("TAT Raw").[A1:U9999]

x = Array(10, 7, 8, 17, 6, 4, 14, 19, 21, 18, 2, 10)

y = Array(4, 6, 7, 9, 10, 11, 12, 14, 15, 16, 19, 95)

a = 22

For i = 2 To 9999

 If Q(i, 10) = 6 Or Q(i, 10) = 4 Or Q(i, 10) = 2 Or Q(i, 10) = 1 Then

  For j = 1 To 12

    Z(a, y(j)) = Q(i, x(j))

  Next

  a = a + 1

 End If

Next

Worksheets("Daily Management").[A1:CZ177] = Z

End Sub

Seiten: 1 2

ReleaseVS

schauan