Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

listbox

Betrifft: listbox von: ralf
Geschrieben am: 05.06.2008 20:29:50

hallo forum

gibt es eine möglichkeit in einer listbox die spaltenfarbe unterschiedlich
zu machen . fülle die listbox über diesen code

Private Sub ListBoxFüllen()
Dim lngRow As Long, lngLast As Long
ListBox1.Clear
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "65;150;30"
ListBox1.TextAlign = fmTextAlignLeft
With ActiveSheet
lngLast = Application.Max(2, .Cells(Rows.Count, 24).End(xlUp).Row)  '

For lngRow = 2 To lngLast
   ListBox1.AddItem .Cells(lngRow, 24)
   ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(lngRow, 25)
   ListBox1.List(ListBox1.ListCount - 1, 2) = Format(CDbl(.Cells(lngRow, 26).Value), "#,##0.00\  _
€")
  Next
  
End With


End Sub



gruss
ralf

  

Betrifft: Nein, nur eine Farbe für alles. oT von: Knut
Geschrieben am: 05.06.2008 20:41:04

oT


 

Beiträge aus den Excel-Beispielen zum Thema "listbox"