For i = 0 To UBound(test_array, 1) - 1
        For i_2 = 0 To UBound(test_array, 2) - 1
            Dim wert_temp
            
            wert_temp = InputBox("Gerben Sie den Wert für die Position " & i & "x" & i_2 & " ein")
            If wert_temp = "" Or wert_temp = 0 Then
                wert_temp = 1000
            End If
                     
            test_array(i, i_2) = wert_temp
        Next
    Next