Zellenformatierung Listbox gleiches Format

[RPP63]

Moin!
Ja, das ginge per .AddItem-Methode (nicht jedoch per Zuweisung zur .List-Eigenschaft):

Code:

Sub Fill()
Dim Zelle As Range
For Each Zelle In Range("C1:C3")
  ListBox1.AddItem Zelle.Text
Next
End Sub

Ergibt:


Jetzt kommt ein wichtiges ABER:
In der Zelle steht die ZAHL 1234567890
In der Listbox steht der TEXT "1234.5678.90"

Folglich muss, sollte man Beziehungen zwischen Listbox und Zellinhalt benötigen, der Text wieder in eine Zahl umgewandelt werden:

Code:

CDbl(Replace(ListBox1.Text, ".", ""))

Gruß Ralf