Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
660to664
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
660to664
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einträge inListbox formatieren

Einträge inListbox formatieren
02.09.2005 10:35:18
Matthias_FFm
Guten Morgen Forum,
in einer multiselect Userform werden Werte aus einer Tabelle eingelesen.
Die Werte erscheinen aber unformatiert in der Listbox, obwohl sie in der Tabelle entsprechend formatiert sind.
Problem deshalb, weil in einer Spalte z. B. Prozentzahlen und Dezimalwerte stehen.
Aus 25,3% in der Tabelle erscheint 0,253 in der Listbox.
Gibt´s hierfür eine Idee.
Danke.....
Matthias

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einträge inListbox formatieren
02.09.2005 11:00:59
Peter
Servus,
da mir weder deinen Tabellenaufbau, etc. bekannt ist. Ein Bsp.
Private Sub UserForm_Initialize()
Dim i As Integer
With Sheets("Tabelle3")
For i = 1 To 3
Me.ListBox1.AddItem (Format(.Range("A" & i), "0.00%"))
Next
For i = 4 To 6
Me.ListBox1.AddItem (Format(.Range("A" & i), "0.00"))
Next
End With
End Sub

MfG Peter
AW: Einträge inListbox formatieren
02.09.2005 11:02:53
Nepumuk
Hallo Matthias,
automatisch geht das nicht. Eine Listbox zeigt nur den Text der Zelle an und nicht das Format. Wie wird denn die Listbox mit Werten gefüllt?
Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
AW: Einträge inListbox formatieren
02.09.2005 14:04:22
Nepumuk
Hallo Matthias,
das Makro zum füllen der Listbox sieht so aus:
Private Sub UserForm_Activate()
    Dim lngRow As Long
    With Worksheets("Tabelle1")
        For lngRow = 7 To .Cells(.Rows.Count, 1).End(xlUp).Row
            ListBox1.AddItem
            ListBox1.List(ListBox1.ListCount - 1, 1) = _
                .Cells(lngRow, 2).Text
            If InStr(1, .Cells(lngRow, 4).NumberFormat, "%") 0 Then
                ListBox1.List(ListBox1.ListCount - 1, 3) = _
                    Format(.Cells(lngRow, 4).Text, "0.0%")
            Else
                ListBox1.List(ListBox1.ListCount - 1, 3) = _
                    .Cells(lngRow, 4).Text
            End If
        Next
    End With
End Sub
Benutze besser das Activate - Ereignis und nicht das Initialize - Ereignis. Das ist besser zu kontrollieren.
Guckst Du: Userform Unload kann Userform starten - und andere Nickligkeiten
Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
Nepumuk, super klasse, vielen Dank (o.T.)
02.09.2005 15:10:17
Matthias_FFM

Links zu Excel-Dialogen

ListBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige