Makro Laufzeitfehler '9': Index außerhalb des Bereichs mit Makro

Question

Ich schreibe ein Makro mit VBA. Wenn Sie einen Knopf in Excel drücken, wird ein Code ausgeführt. Unten ist der erste Teil des Codes. Wenn ich das Programm übertrage, bekomme ich den Laufzeitfehler 9, Index außerhalb des Bereichs. Wie kann ich diesen Fehler beheben? Die Fehlerpunkte auf ReDim rij(1 To z) As Integer

ThisWorkbook.Sheets("InvoerIO").Range("O1") = z 

ReDim rij(1 To z) As Integer 

For r = 1 To ThisWorkbook.Sheets("InvoerIO").Range("O1")   
    If r > 7 Then 
     z = ThisWorkbook.Sheets("InvoerIO").Range("O1") 
     rij(r) = rij(r - 1)  
     If Sheets("InvoerIO").Cells(r, 3).value = "part1" Then   
      rij(r) = 90 

usw.

Answer 1

ändern

ThisWorkbook.Sheets("InvoerIO").Range("O1") = z 

zu

z = ThisWorkbook.Sheets("InvoerIO").Range("O1").Value