L
ludwigdv
Hi,
I want to set some (control toolbox-) Optionbuttons in a worksheet to
"True".
I retrieve the names of which Optionbuttons I want to set from another
sheet, and put those names into an array of Strings.
Finaly, can I loop the array and do a conversion from String to
Optionbutton, and set them one by one to "True"?
Here's my code so far:
Public Sub TestNVTlist()
Dim row, column As Integer
Dim NVTlist() As String
Dim NVT As String
row = 2
column = 2
NVT = Trim(Sheet6.Cells(row, column).Value)
Do While NVT <> ""
NVT = Trim(Sheet6.Cells(row, column).Value)
ReDim Preserve NVTlist(column - 1)
NVTlist(column - 1) = NVT
column = column + 1
Loop
Dim i As Integer
Dim myStr As String
For i = 1 To UBound(NVTlist) - 1
myStr = "Optionbutton" & Replace(NVTlist(i), ".", "_", , ,
vbTextCompare) & "_NVT"
'>>> HERE I WANT TO DO A CONVERSION FROM "myStr" TO
OPTIONBUTTON AND SET THE VALUE TO TRUE <<<
Next
End Sub
Thx.
Ludwig DV
Kaprijke, Belgium
I want to set some (control toolbox-) Optionbuttons in a worksheet to
"True".
I retrieve the names of which Optionbuttons I want to set from another
sheet, and put those names into an array of Strings.
Finaly, can I loop the array and do a conversion from String to
Optionbutton, and set them one by one to "True"?
Here's my code so far:
Public Sub TestNVTlist()
Dim row, column As Integer
Dim NVTlist() As String
Dim NVT As String
row = 2
column = 2
NVT = Trim(Sheet6.Cells(row, column).Value)
Do While NVT <> ""
NVT = Trim(Sheet6.Cells(row, column).Value)
ReDim Preserve NVTlist(column - 1)
NVTlist(column - 1) = NVT
column = column + 1
Loop
Dim i As Integer
Dim myStr As String
For i = 1 To UBound(NVTlist) - 1
myStr = "Optionbutton" & Replace(NVTlist(i), ".", "_", , ,
vbTextCompare) & "_NVT"
'>>> HERE I WANT TO DO A CONVERSION FROM "myStr" TO
OPTIONBUTTON AND SET THE VALUE TO TRUE <<<
Next
End Sub
Thx.
Ludwig DV
Kaprijke, Belgium