Beste leden,
hoe kan ik in mijn listbox een tijdsnotatie die in mijn sheet correct als tijd weergegeven word, nu krijg ik enkel een decimale weergave in mijn listbox.
Momenteel zit de tijdnotattie in kolom C & D van sheet "log".
Doelstelling is dat ik momenteel een log bijhoud wie in de excel-file inlogt en uitlogt.
hoe kan ik in mijn listbox een tijdsnotatie die in mijn sheet correct als tijd weergegeven word, nu krijg ik enkel een decimale weergave in mijn listbox.
Momenteel zit de tijdnotattie in kolom C & D van sheet "log".
Doelstelling is dat ik momenteel een log bijhoud wie in de excel-file inlogt en uitlogt.
Code:
Private Sub UserForm_Initialize() 'Listbox1 vullen
With Sheets("log")
sq = Sheets("log").Range("A2:D" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
End With
With ListBox1
.Clear
.ColumnCount = 4
.List = sq
End With
ComboBox1.List = Sheets("Klant").Range("B1").CurrentRegion.Value
End Sub
Private Sub Combobox1_Change()
If ComboBox1 <> vbNullString Then
sCrit = "*" & UCase(ComboBox1.Value) & "*"
With ListBox1
For iRow = .ListCount - 1 To 0 Step -1
If Not UCase(.List(iRow, 0)) Like sCrit Then
.RemoveItem iRow
End If
Next iRow
End With
Else
UserForm_Initialize
End If
End Sub
Private Sub CommandButton1_Click() ' UserForm1 sluiten
Unload Me
End Sub
Laatst bewerkt: