True and False Values in Listbox

[mucah!t]

Hi all,

The following code initialized data in a listbox on a Userform.
One of the columns in range E5:E1000 contain True and False statements.
In the listbox however they are rendered as 0 and -1.
I need them to be shown as "True" and False".
Is there a way to accomplish this?

Private Sub UserForm_Initialize()

    Dim lbtarget As MSForms.ListBox
    Dim rngSource As Range
    
     Set rngSource = Sheets("A").Range("E5", Sheets("A").Range("A5").End(xlDown))

     Set lbtarget = Me.ListBox1
    With lbtarget
         .ColumnCount = 5
         .ColumnWidths = "0;40;150;120;50"
        .List = rngSource.Cells.Value
    End With
    
    ListBox1.ListIndex = 0
    
End Sub

 

[BobUmlas]

Change .List to read:
.ListBox1.RowSource = "=" & rngsource.Address

 

[mucah!t]

Hello Bobumlas,

It gives the error "Oject doesn't support this property or method"

 

[BobUmlas]

Sorry -- the group should read:
With lbtarget
.ColumnCount = 5
.ColumnWidths = "0;40;150;120;50"
.RowSource = "=" & rngSource.Address
End With

 

[mikerickson]

It looks like you'll have to loop through the range rather than bulk loading the ListBox.

Private Sub UserForm_Initialize()

    Dim lbtarget As MSForms.ListBox
    Dim rngSource As Range, oneCell as Range
    
     Set rngSource = Sheets("A").Range("E5", Sheets("A").Range("A5").End(xlDown))

     Set lbtarget = Me.ListBox1
     With lbtarget
        .ColumnCount = 5
        .ColumnWidths = "0;40;150;120;50"
        For Each oneCell in rngSouce
            .AddItem CStr(oneCell.Value)
        Next oneCell
    End With
    
    ListBox1.ListIndex = 0
    
End Sub

 

[mucah!t]

Hello guys, thanks for your suggestions, but neither worked.
mikerickson's results in an empty listbox.

 

[mucah!t]

I still haven't found a solution for this problem.
Perhaps you'd like to take a look at it.
I stored a sample-file of it here