Determining Value Assigned To Computed Variable

[Dave Sharpe]

I need the following to use the the Value
assigned to the Variable not the Name of the
Variable ( ex "ItemCode" not ColName1 );
see "<--- here" below.

All assistance will be appreciated.

Thanks

Dave


Option Explicit

Sub test()

Dim ColName1 As String
ColName1 = "ItemCode"

Dim ColName2 As String
ColName2 = "Quantity"

Dim ColName3 As String
ColName3 = "PriceQuote"

Dim curSheetCol
Dim ColHead

curSheetCol = 1
For curSheetCol = 1 To 3

ColHead = "ColName" & curSheetCol

Debug.Print ColHead ' <---- here

Next curSheetCol


End Sub

 

[Ken Halter]

How about....

Dim ColName(3) As String
ColName(1) = "ItemCode"
ColName(2) = "Quantity"
ColName(3) = "PriceQuote"
For curSheetCol = 1 To 3

ColHead = ColName(curSheetCol)

Debug.Print ColHead ' <---- here

Next curSheetCol

Other than that, you can't do it.

 

[Bob Butler]

I need the following to use the the Value
assigned to the Variable not the Name of the
Variable ( ex "ItemCode" not ColName1 );
see "<--- here" below.

All assistance will be appreciated.

Thanks

Dave


Option Explicit

Sub test()

Dim ColName(1 to 3) As String
ColName(1)="ItemCode"
ColName(2)="Quantity"
ColName(3)="PriceQuote"

Dim curSheetCol
curSheetCol = 1
For curSheetCol = 1 To 3

Debug.Print ColName(curSheetCol)

Next curSheetCol
End Sub

or use a collection...
Dim cColNames As Collection
Set cColNames=New Collection
cColNames.Add "ItemCode","ColName1"
cColNames.Add "Quantity","ColName2"
cColNames.Add "PriceQuote","ColName3"

Debug.Print cColNames.Item("ColName" & CStr(curSheetCol))