Alles uit cel overnemen

[Atwist]

Hallo

Hoe kan ik een ListBox vullen met de juiste inhoud van de cellen
Het gaat om het € Euro teken, mijn Listbox neemt de waarde van de Cellen wel over maar niet het Euro teken.
De cellen zijn als Valuta met Euro teken ingesteld

 

[edmoor]

Bijvoorbeeld:

ListBox1.AddItem Range("A1").Text

 

[Atwist]

Hallo Ed

Dank je voor je tip
Maar hoe bouw ik in deze code die ik gebruik

 ListBox1.List = Sheet1.Range("A2:D300").Value

 

[edmoor]

Zo:

    Dim i As Long, ii As Long, rng As Range
    Set rng = Sheets("Sheet1").Range("A2:D300")
    With Me.ListBox1
        .ColumnCount = rng.Columns.Count
        For i = 1 To rng.Rows.Count
            For ii = 1 To rng.Columns.Count
                .AddItem
                .List(i - 1, ii - 1) = rng.Cells(i, ii).Text
            Next
        Next
    End With
    Set rng = Nothing

 

[snb]

Mij lijkt het euroteken in een ListBox of combobox volledig overbodig.

Private Sub UserForm_Initialize()
    sn = Sheet1.Range("A1:A10")

    For j = 1 To UBound(sn)
       sn(j, 1) = FormatCurrency(sn(j, 1))
    Next

    ComboBox1.List = sn
End Sub

 

[Atwist]

Zo:

    Dim i As Long, ii As Long, rng As Range
    Set rng = Sheets("Sheet1").Range("A2:D300")
    With Me.ListBox1
        .ColumnCount = rng.Columns.Count
        For i = 1 To rng.Rows.Count
            For ii = 1 To rng.Columns.Count
                .AddItem
                .List(i - 1, ii - 1) = rng.Cells(i, ii).Text
            Next
        Next
    End With
    Set rng = Nothing

Dank u dank u
Werkt Perfect

 

[Atwist]

Mij lijkt het euroteken in een ListBox of combobox volledig overbodig.

Private Sub UserForm_Initialize()
    sn = Sheet1.Range("A1:A10")

    For j = 1 To UBound(sn)
       sn(j, 1) = FormatCurrency(sn(j, 1))
    Next

    ComboBox1.List = sn
End Sub

Misschien wel, maar het is voor mij makkelijker kijken in de ListBox