Set up a dynamic array

Question

I would like to build an array depending on the size of a list. Therefore I try the following:

Range("D3").Select
Set x = Range(Selection, Selection.End(xlDown))

Dim totalRows As Integer
totalRows = (x.Rows.Count) - 1

Dim strCDRack(0 To totalRows) As String

This however gives me a compile error. Thats strange cause when I replace totalRows by 3 it does work

Range("D3").Select
Set x = Range(Selection, Selection.End(xlDown))

Dim totalRows As Integer
totalRows = (x.Rows.Count) - 1

Dim strCDRack(0 To 3) As String

Any thoughts on how I can make this working

arcadeprecinct · Accepted Answer · 2016-07-17 09:51:31Z

1

You basically answered your question yourself already ;) (about the reason of the error, not the solution of course). You can't Dim arrays with variable dimensions (as it says in the error message, more or less).

Use

Dim strCDRack() As String
ReDim strCDRack(0 To totalRows)

edited Jul 17, 2016 at 9:51

answered Jul 17, 2016 at 9:42

arcadeprecinct

3,7771 gold badge14 silver badges18 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Set up a dynamic array

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related