ich fülle die Listbox1 mit nachstehendem Code:
~f
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False 'flackern abschalten
ListBox1.ColumnCount = 14
ListBox1.ColumnWidths = "2cm;2cm;2cm;2cm;2cm;1,5cm;2cm;2cm;4cm;2cm;2cm;2cm;2cm"
arrWerte = Sheets("Tabelle4").[A1:N54]
ListBox1.List = arrWerte
Dim Zeile%
Zeile = Cells(Rows.Count, 1).End(xlUp).Row
ListBox1.ListIndex = Zeile - 1 'markiert letzte Zeile
Application.ScreenUpdating = True
End Sub
~f
Was muss bitte geändert werden, dass wenn der eingegebene Wert bzw. wenn in Zelle Währung formatiert ist, dass die Zahl mit angezeigt wird.
Besten Dank für eure Hilfe.
Gruss
Peter