Hi

I use this to get some value in 2 comboboxe:
FIRST:
Private Sub combo_sedatoer_DropButtonClick()
Dim i As Long
Dim iStart As Long
Dim iEnd As Long
Dim dtePrev As Date
Dim iArray As Long
Dim ary
dtePrev = 0: iArray = 1
ReDim ary(1 To 2, 1 To 1)
With Worksheets("Ark1")
Me.combo_sedatoer.Clear
For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
If .Cells(i, "A").Value < dtePrev Then
If i < 1 Then
ReDim Preserve ary(1 To 2, 1 To iArray)
ary(1, iArray) = dtePrev
ary(2, iArray) = Range("A" & iStart & ":A" & iEnd).Address
iArray = iArray + 1
End If
iStart = i
iEnd = i
dtePrev = .Cells(i, "A").Value
Else
iEnd = i
End If
Next i
ReDim Preserve ary(1 To 2, 1 To iArray)
ary(1, iArray) = dtePrev
ary(2, iArray) = Range("A" & iStart & ":A" & iEnd).Address
Me.combo_sedatoer.List = Application.Transpose(ary)
End With
End Sub
Private Sub combo_sedatoer_Click()
Dim hvorb As String
Dim s1 As String

hvorb = Me.combo_sedatoer.List(Me.combo_sedatoer.ListIndex , 1)
s1 = Replace(hvorb, "A", "B")

Dim rng3 As Range
Sheets("Ark1").Select
Set rng3 = Range(Range("Ark1!" & s1), Range("ark1!" & s1))
Me.combo_timer.List = rng3.Value
End Sub

What i need i to see the cell value there are in a cell right to the address
from
value i choose in Me.combo_timer.

Like all value in Me.combo_timer.list comes from collumn B and when i selct
a calue in Me.combo_timer then i want to get the value from collumn C from
the same row as selcted in Me.combo_timer
I have try with lisindex but dosn't work

regards
alvin