Listbox Date and amount text Type

[kirana2014]

Dear all,
How to build a list box that shows date = 01/11/2017 amount = 1.200,00
Date is on C and amount is on G

I use below code to load the data to listbox

Private Sub cmdLoad_Click()
Dim DataSH As Worksheet
On Error GoTo errhandler:

ListBox1.List = Sheets("Registered").Range("A2:M" & [a65536].End(3).Row).Value


On Error GoTo 0
Exit Sub
errhandler:
MsgBox "No match found for " & txtSearch.Text
End Sub

[Kenneth Hobson]

We can use the range's Text property rather than Value to use the Number Format. e.g.

Private Sub CommandButton1_Click()
  ListBox1.List = a2RangeValueToText(Sheet1.Range("A2:M" & _
    Sheet1.Cells(Rows.Count, "A").End(xlUp).Row))
End Sub

Function a2RangeValueToText(ar As Range)
  Dim a, c As Integer, r As Long
  a = ar.Value
  For r = 1 To UBound(a)
    For c = 1 To UBound(a, 2)
      a(r, c) = ar(r, c).Text
    Next c
  Next r
  a2RangeValueToText = a
End Function