tijdnotatie - format in combobox

[eurotax]

ik heb in een kolom een reeks tijdnotaties staan in de vorm 08:00, 08:30,....

als ik deze kolom aanduidt als rowsource voor een combobox, dan kan ik 1 van deze waarden kiezen , bvb 08:00 (ze staan ook in deze notatie)

Blad2.Range("AG1").CurrentRegion.Offset(1, 0).Name = "v223lijst"
v223.RowSource = "v223lijst"

Na selectie wordt ze echter weergeven in de box als "0,333333333333333" en ze wordt ook zo weggeschreven. Wat moet ik doen om de notatie 08:00 te behouden?

 

[Wigi]

Ha stadsgenoot

hang eens een voorbeeldbestandje bij, met enkel de userform en de code.

Wigi

 

[eurotax]

wigi,

hierbij het voorbeeldje

 

[Wigi]

Heb alle code herschreven, hier is het

Private Sub UserForm_initialize()
    
    Dim c As Range
    'waarden keuzelijsten laden
    Blad2.Range("A1").CurrentRegion.Columns(1).Offset(1).SpecialCells(xlCellTypeConstants).Name = "v223lijst"
    Me.v223.Clear
    For Each c In Range("v223lijst")
        Me.v223.AddItem c.Text
    Next
End Sub

Private Sub cancel_Click()
    Vanalles
End Sub

Private Sub opslaan_Click()
    Opslaanprocedure
End Sub

Private Sub Opslaanprocedure()
    ActiveWorkbook.Sheets("resultaten").Activate
    Range("B2").End(xlDown).Offset(1).Value = Range("v223lijst")(Me.v223.ListIndex + 1).Value
    Vanalles
End Sub

Sub Vanalles()
    Unload Me
    ActiveWorkbook.Sheets("resultaten").Activate
    Range("B2").Select
End Sub

Wigi

 

[eurotax]

wigi,

het werkt.

enkel als de velden B2 en B3 nog leeg zijn krijg ik een foutmelding voor volgende regel:

Range("B2").End(xlDown).Offset(1).Value = Range("v223lijst")(Me.v223.ListIndex + 1).Value

 

[Wigi]

Private Sub Opslaanprocedure()
    ActiveWorkbook.Sheets("resultaten").Activate
    Range("B" & Rows.Count).End(xlUp).Offset(1).Value = Range("v223lijst")(Me.v223.ListIndex + 1).Value
    Vanalles
End Sub

Wigi

 

[eurotax]

bedankt, het werkt.

 

[Wigi]

bedankt, het werkt.

Geen dank. Graag gedaan.