Opgelost tijdnotatie in listbox weergeven

[Ben]

Dag Allemaal: Graag hulp, zit er weer mee heb diverse tips gehad met tijd notatie zoals vervang Value naar Text, dit lukt bij deze niet.
In de listbox1 wordt het getal gegeven van de tijd die blad 1 wordt aangegeven.
Kolom 3 en 4. de tijd in blad1 20:00 - 21:00 en in de listbox1 wordt dit 0.83 - 0.875.
Die ik op internet ben tegengekomen werken ook niet.
Gebruik Office excel 2013.

Private Sub UserForm_Initialize()
Me.Width = 375
ListBox2.List = Sheets("Blad1").ListObjects(1).DataBodyRange.Value
ListBox1.List = ListBox2.List
End Sub
Private Sub CommandButton1_Click()
ListBox1.List = ListBox2.List
End Sub

Private Sub TextBox1_Change()
With ListBox1
 .List = ListBox2.List
  For j = .ListCount - 1 To 0 Step -1
    If InStr(1, .List(j, 1), TextBox1, 1) = 0 Then ListBox1.RemoveItem j
  Next j
End With
End Sub

Met een vriendelijke groet Ben.

 

[SjonR]

En een voorbeeldbestandje ?

 

[edmoor]

Tijden als tekst weergeven middels VBA kan gewoon zo:

Range("C1").Text & " - " & Range("D1").Text

Maar doe vooral wat SjonR zei.

 

[AHulpje]

Zonder voorbeeldbestand een gokje wagen:

Private Sub UserForm_Initialize()
    Me.Width = 375
    With ListBox2
        .List = Sheets("Blad1").ListObjects(1).DataBodyRange.Value
        For i = 0 To .ListCount - 1
            .List(i) = Format(.List(i), "hh:mm")
        Next i
    End With
    ListBox1.List = ListBox2.List
End Sub

Met twee tijdkolommen:

            .List(i, 0) = Format(.List(i, 0), "hh:mm")
            .List(i, 1) = Format(.List(i, 1), "hh:mm")

 

[Ben]

Bij deze het bestandje, heb beide geprobeerd het lukt niet.

 

[edmoor]

Maak er eens dit van:

Private Sub UserForm_Initialize()
    x = Sheets("Blad1").ListObjects(1).DataBodyRange.Value
    For i = 1 To UBound(x)
        x(i, 3) = Format(x(i, 3), "hh:mm")
        x(i, 4) = Format(x(i, 4), "hh:mm")
    Next i
    ListBox1.List = x
End Sub

 

[snb]

Kan ook zó:

Private Sub UserForm_Initialize()
   ListBox2.List = [index(text(Tabel1[Begin],"hh:mm"),)]
   ListBox1.List = ListBox2.List
End Sub

 

[Ben]

Dag Edmoor, deze werkt in de listbox, kan nu niet meer filteren op datum en wrkt het rest niet.

 

[Ben]

He he opgelost formule werkt dankje wel Edmoor en SNB de aanwijzingen hebben me geholpen.