Getting the columnmeads

[Guest]

Hi
I use this to make the values in a combobox
Dim myrange1 As Range

Set myrange1 = Sheets("ark1").Range("navne")
For Each a In myrange1
kurtype.AddItem a.Text
Next

The range("navn") is a namerange there taking all the values in row 1
In my combo box i want to see the values i have this is what i also have
today
but when i choose one value in my combobox i want to get the columnname as a
value in a variable or something like that

Hope someone understand

Regards
Alvin

 

[Dave Peterson]

Maybe this'll give you an idea:

Option Explicit
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub CommandButton2_Click()
Dim myRange1 As Range
Set myRange1 = Sheets("ark1").Range("navne")
With kurtype
If .ListIndex < 0 Then
'nothing selected
Else
MsgBox .ListIndex & "--" & .Value & _
vbLf & myRange1.Cells(1).Offset(0, .ListIndex).Column
End If
End With
End Sub
Private Sub UserForm_Initialize()
Dim myRange1 As Range
Dim a As Range
Set myRange1 = Sheets("ark1").Range("navne")
For Each a In myRange1
kurtype.AddItem a.Text
Next
End Sub

 

[Ron de Bruin]

Hi Alvin

I am not sure that I understand you ?
You can use kurtype.Value in your other code to use the value of the selected item in the combobox

 

[Guest]

Hej dave
MAybe i don't explain so good
What i want is the value of where the selected value are
Like is it in column A , b, h , q And so on

Regards
alvin

 

[Guest]

Hi ron
MAybe i'm not xpalin me so good
My value in my combobox come from a row
and mybe from A to Q
What i want is when a choose a value in my combobox
maybe "Teskt1" then i want to see where tekst1 are in the sheet
is it in column A Or column G or .......... And so on

regards

Alvin

 

[Ron de Bruin]

You can use the index from the combobox

Try this

MsgBox Cells(1, Me.kurtype.Value + 1).Address

 

[Ron de Bruin]

Oops Typo

Use Me.kurtype.ListIndex

 

[Guest]

yes yes yes
Thanks Ron

regards
alvin

Oops Typo

Use Me.kurtype.ListIndex