tijd weergave in een listbox

[wekkanz]

Hallo,

Ik heb een vraagje, ik ben een bezoekersregistratie formulier aan het maken, via de userform word in excel de aankomst tijd en vertrek tijd weg geschreven. met behulp van een listbox kan de persoon uitgeschreven worden.
Maar in de listbox de tijdsweergave van uit de excessheet als numeriek weergegeven, ik weet niet precies hoe ik dit moet oplossen.

Mijn vraag is kan iemand mij helpen met hoe ik de tijdweergave in de listbox als tijd formateer?

 

[gast0660]

Zo?

 

[snb]

Verwijder eerst alle samengevoegde cellen.
Dan is dit genoeg:

Private Sub UserForm_Initialize()
   With ListofData
        .List = hal28_members.Cells(1).CurrentRegion.Offset(1).Value
        For j = 1 To .ListCount - 1
            .List(j, 6) = Format(.List(j, 6), "h:.mm")
            .List(j, 7) = Format(.List(j, 7), "h:.mm")
            .List(j, 9) = Format(.List(j, 9), "h:.mm")
        Next
   End With
End Sub

 

[edmoor]

@gast0660:

Dit is voldoende:

Myarray(rw, j) = rng.Cells(i, j + 1)[COLOR="#FF0000"].Text[/COLOR]

Dan kan je het gedeelte met Format helemaal achterwege laten.

 

[wekkanz]

Super dank je wel voor de snelle reacties!
.text werkt perfect!

is opgelost!