Office: Zeilen in einer Listbox mit Farbe hinterlegen

Hallo Ihr,

weiß jemand zufällig ob es eine Möglichkeit gibt Zeilen in einer Listbox auf einem Formular mit Farbe zu hinterlegen?

Bisheriger Code sieht so aus:

With Sheets("List")
showExcel.ColumnCount = 12

If .Cells(3, 1).Value = "" Then Exit Function

ngLastRow = .Range("A2").End(xlDown).Row

showExcel.RowSource = "a3:l" & ngLastRow


If ngLastRow = Rows.Count Then ngLastRow = 3
For lngCounter = 3 To ngLastRow
If .Cells(lngCounter, 4).Value = "!!!!" Then
showExcel.ListIndex.BackColour = &HFF&
End If
Next lngCounter

End With

das funktioniert aber nicht wirklich ... :-/

Schon mal im Voraus lieben Dank

Gruß Melanie

:)

 

Hallo Melanie,

schaue mal in diesen Beitrag
http://www.ms-office-forum.net/forum...d.php?t=151975
Beitrag #27




Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.

 

Hallo Hajo

Danke für die schnelle Antwort, aber entweder ich bin blind oder ich steh auf dem Schlauch, was hat der Code in dem Link mit Farben zu tun?

Viele Grüße

 

Hi

Halt, Stop, ich nehm den vorigen Beitrag zurück
Sorry, hab das Beitrag #27 übersehen ...

Danke schön :-)

 

Hallo nochmal

hab mir das gerade angeschaut... ist das so die einzige möglichkeit, wie es funktioniert?
Das wird schwer bei mir, da ich immer ganze Zeilen mit 12 Spalten habe, die auch nicht immer an der gleichen Stelle stehen und sich ständig ändern können...

Viele Grüße Melanie

 

Moin, Melanie,

ich denke mal, dass Hajo eine andere Möglichkeit gepostet hätte, wenn sie umsetzbar wäre - mir ist da leider nichts bekannt.

 

Hallo Jinx, Hallo Hajo,

naja dann muss das halt auch so gehen ohne Farbe...
Lieben Dank euch zwei.

Gruß Melanie