Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1668to1672
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Listbox Währung € anzeigen

Listbox Währung € anzeigen
18.01.2019 13:45:10
Peter
Hallo ihr Excelspezialisten,
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

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

Betreff
Datum
Anwender
Anzeige
AW: Listbox Währung € anzeigen
18.01.2019 14:50:35
Rudi
Hallo,
Private Sub UserForm_Initialize()
Dim arrWerte, i As Long, j As Long
Application.ScreenUpdating = False 'flackern abschalten
With Sheets("Tabelle4").[A1:N54]
arrWerte = .Value
For i = 1 To UBound(arrWerte)
For j = 1 To UBound(arrWerte, 2)
arrWerte(i, j) = .Cells(i, j).Text
Next
Next
End With
With ListBox1
.ColumnCount = 14
.ColumnWidths = "2cm;2cm;2cm;2cm;2cm;1,5cm;2cm;2cm;4cm;2cm;2cm;2cm;2cm"
.List = arrWerte
.ListIndex = .ListCount - 1
End With
End Sub

Gruß
Rudi
AW: Listbox Währung € anzeigen
18.01.2019 17:37:25
Peter
Hallo Rudi,
klappt Super! Besten Dank für Deine Hilfe.
Gruss
Peter
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige