Listboxeinräge farbig
19.01.2004 16:50:01
Reinhard
in einer Userform habe icht ein Listenfeld( Listbox), in das/die lese ich mit:
Private Sub CommandButton2_Click()
Dim bereich()
ReDim bereich(Worksheets("Tabelle1").Cells(65536, 1).End(xlUp).Row, 2)
UserForm2.ListBox1.ColumnCount = 3
For n = 1 To Worksheets("Tabelle1").Cells(65536, 1).End(xlUp).Row
bereich(n - 1, 0) = Worksheets("Tabelle1").Cells(n, 1)
Next n
UserForm2.ListBox1.List() = bereich()
UserForm2.ListBox1.List(2, 1) = "tessst"
End Sub
Werte ein. Nun habe ich für jeden Wert bereich(x,0) auch einen Farbwert(x,0) in der Schreibform 67D9FF.
Wie ändere ich die Einträge entsprechend ihres Farbwertes? Also wie lautet die genaue Syntax für die theoretische Routine:
for n = 0 to x-1
UserForm2.ListBox1.List(n, 0).???? = rgb???(67,D9,FF)
next n
2te Frage: Oben lese ich ja in einer Schleife alle Werte für bereich() einzeln ein. Geht das auch direkter? bereich()=Range("A1:C50") geht leider nicht.
Danke für alle Hinweise
Gruß
Reinhard
Anzeige