Registriert seit: 05.02.2017
Version(en): 2013
Jap das meinte ich mit den Bereichen. Brachte bei mir leider keine Änderung.
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)