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