ClearContents Laufzeitfehler 1004

[ReleaseVS]

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

[schauan]

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