Herbers Excel-Forum - das Archiv
Ausrichtung im Listenfeld
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Betrifft: Ausrichtung im Listenfeld
von: GSKE
Geschrieben am: 03.01.2007 21:45:11
Moin, moin
folgendes Problem plagt mich.
Im Listenfeld würde ich gern die Felder ausrichten, was fehlt da noch ?!
For InI = 2 To 119
If Worksheets("Akku-Daten").Cells(InI, 1) (??) "" Then
If Worksheets("Akku-Daten").Cells(InI, 19) (?) 0 Then
ListBox1.AddItem .Range("A" & InI)
ListBox1.List(InZeile, 0) = Worksheets("AKKU-Daten").Range("A" & InI)
ListBox1.List(InZeile, 1) = Worksheets("AKKU-Daten").Range("C" & InI)
ListBox1.List(InZeile, 2) = Worksheets("AKKU-Daten").Range("N" & InI)
ListBox1.List(InZeile, 3) = Format(Worksheets("AKKU-Daten").Range("O" & InI), "#0 g")
ListBox1.List(InZeile, 4) = Format(Worksheets("AKKU-Daten").Range("P" & InI), "#0 A")
ListBox1.List(InZeile, 5) = Format(Worksheets("AKKU-Daten").Range("Q" & InI), "#0 mAh")
ListBox1.List(InZeile, 6) = Format(Worksheets("AKKU-Daten").Range("R" & InI), "h:mm:ss;@")
ListBox1.List(InZeile, 7) = Format(Worksheets("AKKU-Daten").Range("S" & InI), "#,##0.00 €")
InZeile = InZeile + 1
End If
End If
Next InI
End With
Betrifft: AW: Ausrichtung im Listenfeld
von: Jochen
Geschrieben am: 03.01.2007 22:09:17
Hi,
nur eine Ausrichtung möglich, kannst du in den Eigenschaften unter
TextAlign einstellen.
mfg Jochen
Betrifft: AW: Ausrichtung im Listenfeld
von: GSKE
Geschrieben am: 05.01.2007 15:43:44
Danke für die schnelle Antwort, habe selber eine Lösung gefunden.
Wohl eher ne Krücke, aber es funktioniert!
Alle Felder nach "Right" ausrichten und die gewünschten "Center" oder "Left" Felder,
einfach mit Leerstellen auffüllen.
M.f.G. Günter