Aufgabe
In einer mehrspaltigen Listbox sollen Texte linksbündig und Werte rechtsbündig dargestellt werden. Wenn man in den Eigenschaften der Listbox die Ausrichtung ändert (TextAlign), gilt dies immer für alle Spalten.
Lösung
In Spalte A stehen Bezeichnungen,
in Spalte C Werte.
B1:
=WIEDERHOLEN(ZEICHEN(32);(20-LÄNGE(Runden(C1;0)))*2+WENN(C1<0;1)-KÜRZEN(LOG10(ABS(C1))/3))&TEXT(C1;"#.##0,00")
nach unten kopieren.
Spalte A und B werden nun als Datenquelle (ListFillRange) in die Listbox übernommen.
Erläuterung
Abängig vom Zoom der Tabelle oder der Schriftart kann es sein, dass die Ausrichtung nicht korrekt ist.
Geklappt hat es mit Arial und Verdana, Schriftgröße 11.
Bei Courier klappt es, egal welche Größe, wenn man die Formel so anpasst:
=WIEDERHOLEN(ZEICHEN(32);(10-LÄNGE(C1))-KÜRZEN(LOG10(ABS(C1))/3))&TEXT(C1;"#.##0,00")