Listview Zeile einfärben
28.09.2017 13:38:12
Philipp
Also ich habe folgendes Problem:
Ich will einen Eintrag in meiner ListView(Listview2) farbig einfärben sobald dieser ListView Eintrag einen anderen Eintrag in einem Tabellenblatt(variabler Name = NameSheet) entspricht. Leider weiß ich nicht wie die Syntax dafür ist. Das ist mein Versuch:
Public Sub Listview2_init()
NameSheet = ThisWorkbook.Worksheets("Temp").Cells(1, 1)
Dim lngZe As Long, lngSp As Long, irow As Long
Dim i As Long, irow2 As Long
If ThisWorkbook.Worksheets("Sources").Cells(2, 3) = "" Then
irow = 2
Else
irow = ThisWorkbook.Worksheets("Sources").Range("C:C").End(xlDown).Row
End If
''If ThisWorkbook.Worksheets(NameSheet).Cells(2, 1) = "" Then
'' irow2 = 2
''Else
'' irow2 = ThisWorkbook.Worksheets(NameSheet).Range("A:A").End(xlDown).Row
''End If
With IdeasForm.ListView2
.View = lvwReport
.FullRowSelect = True
.ColumnHeaders.Add , , ThisWorkbook.Worksheets("Sources").Cells(1, 3) 'Listview Kopf _
anlegen
'Alle Vorhandenen Zeilen in die Listview eintragen
For lngZe = 2 To irow
.ListItems.Add , , ThisWorkbook.Worksheets("Sources").Cells(lngZe, 3)
'Zeilen befüllen
'Sobald eine Zeile im Listview einer Zeile im Worksheet entspricht soll die
Zeile grün gefärbt werden
''For i = 2 To irow2
''If ListItems(lngZe) = ThisWorkbook.Worksheets(NameSheet).Cells(i, 1) Then
'' .ListItems.BackColor (lngZe)= vbGreen
''End If
''Next i
Next lngZe
End With
End Sub