Uren in een listbox

[Roma]

Beste allemaal,

k heb een listbox gemaakt met 5 kolommen. Nu heeft kolom B en D een urennotatie in de listbox geef het allemaal cijfers achter de komma. Wie weet hoe ik dit op kan lossen.

Sub Ron()
Private Sub UserForm_Initialize()
With ListBox1
 .ColumnCount = 5
 .List = Sheets("Standaard gegevens").Range("A3").CurrentRegion.Value
End With
End Sub

 

[HSV]

In een staandaard module, zo heb je de initialize niet nodig.

Sub hsv()
Dim i As Long
 With UserForm1
    With .ListBox1
       .ColumnCount = 5
       .List = Sheets("Standaard gegevens").Range("A3").CurrentRegion.Value
      For i = 0 To .ListCount - 1
         .List(i, 1) = Format(.List(i, 1), "hh:mm:ss")
         .List(i, 3) = Format(.List(i, 3), "hh:mm:ss")
      Next i
    End With
 .Show
End With
End Sub

 

[Roma]

Harry,
Dank.
Hij geeft de volgende fout: object vereist With .ListBox1
Ik had deze code van jou ook ergens op de site gevonden.

 

[HSV]

Wat is de naam van het form of listbox?

Edit: Past beter in de context.

 

[Roma]

Overzicht

 

[HSV]

En zo?

With Overzicht
    With .ListBox1

 

[Roma]

Weer een belangrijke tip van je Stom van mij maar nu doet hij het.
Je bent wederom de Superman.
Ron

 

[HSV]

Soms heb je van die momentjes. :d

 

[Roma]

Harry,
ik heb nog een vraagje: de kolommen in de listbox zijn te breed hoe kan ik deze smaller maken
Ron

 

[HSV]

In de eigenschap columnwidths van de listbox gescheiden door punt-komma.
bv:

50;40;30;40;100

 

[snb]

een listbox in een userform vullen zou ik altijd in de Initialize gebeurtenis van het userform doen:

Private Sub UserForm_Initialize()
   sn=Sheets("Standaard gegevens").Range("A3").CurrentRegion

   for j=1 to ubound(sn)
     sn(j,1)=format(sn(j,1),"hh:mm:ss")
     sn(j,3)=format(sn(j,3),"hh:mm:ss")
   next

   With ListBox1
      .ColumnCount =Ubound(sn,2)-1
      .List = sn
   End With
End Sub

 

[HSV]

Hij is weer mooi......

....maar je zult het vast zo bedoelen.

Private Sub UserForm_Initialize()
   sn = Sheets("Standaard gegevens").Range("A3").CurrentRegion
   For j = 1 To UBound(sn)
     sn(j, 2) = Format(sn(j, 2), "hh:mm:ss")
     sn(j, 4) = Format(sn(j, 4), "hh:mm:ss")
   Next
   With ListBox1
      .ColumnCount = UBound(sn, 2)
      .List = sn
   End With
End Sub

 

[Roma]

Harry
Het is weer gelukt bedankt.
Ron