ListView
20.02.2009 17:37:00
ralf
Ich weiss das es nicht unbedingt das richtige Forum für ListView ist,
aber vielleicht kann mir doch jemand helfen . Habe ListView genommen um die Hintergrundfarben
der Zeilen(LV) unterschiedlich farbig zu gestalten (2 Farben).Mit dem ForeColor klappt es die Schriftfarbe zu
ändern , aber Ich kriege es nicht hin die Hintergrundfarbe zu ändern.Kann mir jemand helfen ?
Private Sub UserForm_Initialize()
Dim x As Long
Dim lngLast As Long
With Worksheets("Tabelle1")
lngLast = Application.Max(2, .Cells(Rows.Count, 2).End(xlUp).Row)
With ListView1
.ListItems.Clear
.ColumnHeaders.Add , , "Vorname", 140
.ColumnHeaders.Add , , "Name", 140
.ColumnHeaders.Add , , "Geburtsd.", 70
.View = 3
For x = 1 To lngLast
.ListItems.Add , , Cells(x + 1, 3)
.ListItems(x).SubItems(1) = Cells(x + 1, 2)
.ListItems(x).SubItems(2) = Cells(x + 1, 7)
Next
End With
End With
End Sub
Gruss
Ralf