Private Sub UserForm_Initialize()
With ListBox1
.ColumnCount = 5
.ColumnWidths = "2cm;3cm;3cm;1cm;1,5cm"
End With
Label2.Caption = Format(Date, "dd/mm/yyyy")
VSearch = Label2.Caption
With Sheets(CStr(Year(Date)))
Derlig = .Range("Q" & Rows.Count).End(xlUp).Row
For Each Cel In .Range("Q3:Q" & Derlig)
If Cel = VSearch Then
ListBox1.AddItem Cel.Value
ListBox1.List(ListBox1.ListCount - 1, 1) = Cel.Offset(0, -14)
ListBox1.List(ListBox1.ListCount - 1, 2) = Cel.Offset(0, -13)
ListBox1.List(ListBox1.ListCount - 1, 3) = Cel.Offset(0, -16)
ListBox1.List(ListBox1.ListCount - 1, 4) = Cel.Offset(0, -15)
End If
Next Cel
End With
End Sub