Listbox fügt beim Text einfügen Leerzeichen hinzu
18.11.2005 14:21:17
Peter
ich hab mal ne frage.
Ich versuche in eine Listbox (Steuerelementen) auf einem TB Länderkürzel einzufügen. Soweit kein Thema allerdings hab ich sowohl vor als auch nach dem Kürzel ziemlich viele Leerzeichen.
Und somit bekommt meine kleine Listbox Schönheitsfehler (die soll auch ziemlich schmall sein) erstens, trotz TextAlign =fmTextAlignLeft wird der Text erst nach 3 Leerzeichen angezeitgt und zweitens einen Scrollbalken für die 20 Leerzeichen rechts vom Text).
Habs mit folgenden Methoden probiert und keine funtzt, wieso die Leerzeichen ?
Methode 1
With Sheets("Optionen")
lzeile = .Cells(.Rows.Count, 1).End(xlUp).Row
For intZähl = 10 To lzeile
Me.ListBox3.AddItem (Left(.Cells(intZähl, 1), Len(.Cells(intZähl, 1))))
Next
Methode 2
With Sheets("Optionen")
lzeile = .Cells(.Rows.Count, 1).End(xlUp).Row
myarr = .Range("A10:A" & lzeile)
Me.ListBox3.Text() = myarr
MfG Peter
Anzeige