Listbox links- u. rechtsbündig
22.10.2012 17:49:40
Wolfgang
ich möchte in einer Listbox die Spalten 2 - 4 linksbündig und die Spalten 5 - 8
rechtsbündig haben.
Mein Eintrag: .TextAlign = fmTextAlignRight
wirkt sich aber immer auf die ganze Listbox aus.
Code:
With Me.ListBox1
.ColumnCount = 8
.AddItem
.List(.ListCount - 1, 0) = rngCell.Offset(0, 1).Value ' 1 = Datum
.List(.ListCount - 1, 1) = rngCell.Offset(0, 2).Value ' 2 = Name
.List(.ListCount - 1, 2) = rngCell.Offset(0, 3).Value ' 3 = Bezeichnung
.List(.ListCount - 1, 3) = rngCell.Offset(0, 4).Value ' 4 = Kategorie
.List(.ListCount - 1, 4) = Format(rngCell.Offset(0, 5).Value, "#,##0.00 ") ' 5 = Miete
.List(.ListCount - 1, 5) = Format(rngCell.Offset(0, 6).Value, "#,##0.00 ") ' 6 = Garage
.List(.ListCount - 1, 6) = Format(rngCell.Offset(0, 7).Value, "#,##0.00 ") ' 7 = NK
.List(.ListCount - 1, 7) = Format(rngCell.Offset(0, 8).Value, "#,##0.00 ") ' 8 = Aus
.TextAlign = fmTextAlignRight
.ColumnWidths = "2,5cm;4cm;4cm;4cm;2,5cm;2,5cm;2,5cm;2,5cm" 'Spaltenbreiten
End With
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address strFirstAddress
Ich bitte um Hilfe.
Gruß Wolfgang