Ben
Gebruiker
- Lid geworden
- 16 aug 2013
- Berichten
- 148
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.
Met een vriendelijke groet Ben.
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.
Code:
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.