Listbox eigenschap op percentage en valuta instellen

[HWV]

Beste,

Ik heb een listbox1 die ik vul met waarde uit mijn werkblad.
Omzet - percentage

Hoe kan ik de eigenschappen instellen dat ik valuta en percentage krijg

Private Sub UserForm_activate()
     Dim MyList(500, 7) As String
     Dim M%, N%

     With ListBox1
           .ColumnCount = 7
           .ColumnWidths = "50;100;150;50;50;50;50"
           .MultiSelect = fmMultiSelectMulti
     End With


     With ActiveSheet
           For M = 2 To 500
                 N = M + 1
                 MyList(M, 0) = .Range("A" & N)
                 MyList(M, 1) = .Range("B" & N)
                 MyList(M, 2) = .Range("C" & N)
                 MyList(M, 3) = .Range("D" & N)
                 MyList(M, 4) = .Range("E" & N)
                 MyList(M, 5) = .Range("AB" & N)
                 MyList(M, 6) = .Range("AC" & N)
           Next M
    End With

     ListBox1.List = MyList

End Sub

Groet HWV

 

[HWV]

Aanvulling op mijn vraag

Beste,

ik heb geen idee hoe ik de waarde uitmijn listbox moet printen, wel wil ik eerst een overzich en kiezen welke printer.
ik heb gezocht maar kan het niet vinden.
Ik hoop dat één van jullie een idee heeft hoe ik dit kan doen.

groet HWV

 

[HWV]

listbox kolom op valuta en percentage mogelijk ?

Beste,

het printen in mijn topic twee heb ik voorelkaar gekregen door weg te schrijven naar een werkblad en daarvadaan te printen.

Kan iemand mij vertellen of het wel mogelijk is om de Listbox eigenschappen vast te zetten op een kolom op percentage en een kolom op valuta ?
En zoja hoe doe ik dat ?


Groet HWV