Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Zahlen in Listbox
Volker
Hallo zusammen,
ich Versuche in einer mehrspaltigen UF Listbox Zahlen darzustellen.
In Spalte 3 soll eine Dezimalzahl angezeigt werden. Dazu muss ich
die Spalte ja dementsprechend formatieren. Ich habe aber keine
Ahnung wie:-( . Kann mir jemand helfen?
Danke und Gruß
Volker
Sub sbFill()
Dim Blatt As Worksheet, arrList()
Dim n As Integer, m As Integer
ReDim arrList(1 To Worksheets.Count, 1 To 8)
UserForm1.ListBox2.Clear
For Each Blatt In ThisWorkbook.Worksheets
m = m + 1
For n = 1 To 8
arrList(m, n) = Blatt.Cells(50, n)
Next n
Next Blatt
With UserForm1.ListBox2
.ColumnCount = 8
.List = arrList
End With
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zahlen in Listbox
26.08.2010 14:48:45
Rudi
Hallo,
eine Listbox enthält immer Text.
Workaround:
Sub sbFill()
Dim Blatt As Worksheet, arrList()
Dim n As Integer, m As Integer
ReDim arrList(1 To Worksheets.Count, 1 To 8)
UserForm1.ListBox2.Clear
For Each Blatt In ThisWorkbook.Worksheets
m = m + 1
For n = 1 To 8
arrList(m, n) = Blatt.Cells(50, n)
Next n
Next Blatt
For n = 1 To UBound(arrList)
arrList(n, 3) = Format(arrList(n, 3), "#,##0.00")
Next
With UserForm1.ListBox2
.ColumnCount = 8
    .TextAlign = fmTextAlignRight
.List = arrList
End With
End Sub

AW: Zahlen in Listbox
26.08.2010 14:56:03
Volker
Hallo Rudi,
Danke für Deine Antwort.
Funktioniert!!
Gruß
Volker
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige