Office: zeilen im Listenfeld bedingt farblich hervorheben

AnOldy · 2. August 2004

Hallo zusammen,
würd gerne wissen ob es überhaupt möglich ist Listeneinträge, bei Erfüllung bestimmter Kriterien, farblich hervorzuheben.
Meine so wie bei der bedingten Formatierung.

Hintergrund: habe ein Listenfeld das alle Kunden auflistet für die eine Mahnung fällig wird. Darunter können sich auch Kunden befinden für die z.B. die 2. oder 3. Mahnung fällig wird. So würd ich gern, der schnellen Übersicht wegen, die Verschiedenen Mahnstufen farblich hervorheben.
Geht sows überhaupt im Listenfeld ?

Danke Euch sehr

_____________________________

MfG Reinhard aus dem Münsterland

:)

J_Eilers · 4. August 2004

Hi,

IMHO kann ein Listenfeld so etwas nicht. Ein ListView wäre eine andere Alternative zu einem UFo. Werd gleich mal ein wenig ausprobieren. Glaube aber nicht, das ich dort etwas finde. *frown.gif*

Edit: Aus meiner Sicht leider nicht möglich.

AnOldy · 4. August 2004

hab da schon an ein endlos Form gedacht,
-und wie Du schon sagst- dann halt als Ufo,
damit könnte man das Ganze wohl realisieren.

Grüße Reinhard

Bertha · 4. August 2004

Hallo Reinhard,

geht über .Forecolor in einem Listview, Du mußt allerdings jede Spalte extra formatieren.

Gruß,

Patrick

J_Eilers · 4. August 2004

\@Patrick hast du einen Beispielcode? Denn ForeColor ist eigentlich die Schriftfarbe des gesamten Listenfeldes.

Bertha · 4. August 2004

Jau, habe ich!
Code:

Function Listview_aufbauen(ListV As Access.Control, Optional SQL_String As String)
Dim lvw As ListView
Dim li As ListItem
Dim ch As ColumnHeader

Dim rs As New ADODB.Recordset

Set rs.ActiveConnection = ConGlobal

rs.Source = "Select * from View_User " & SQL_String
rs.Open
Set lvw = ListV.Object
lvw.ListItems.Clear
lvw.ColumnHeaders.Clear
Set ch = lvw.ColumnHeaders.Add(, , _
"Name", Forms.frm_Hierarchie.LSt_User.Width * 0.35)
Set ch = lvw.ColumnHeaders.Add(, , _
"Vorname", Forms.frm_Hierarchie.LSt_User.Width * 0.35)
Set ch = lvw.ColumnHeaders.Add(, , _
"PersonalNr", Forms.frm_Hierarchie.LSt_User.Width * 0.23)

Do Until rs.EOF
Set li = lvw.ListItems.Add(, , rs!Nachname)
li.SubItems(1) = rs!Vorname
li.SubItems(2) = rs!PNR
li.Tag = rs!Kennwort & "," & li.SubItems(2) & "," & li.SubItems(1) + "," + li.text
li.ForeColor = RGB(242, 0, 0)
rs.MoveNext
Loop

rs.Close
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ergibt:

AnOldy · 4. August 2004

...hab versucht die Sache von Patrick umzusetzen aber
das übersteigt wohl mein Verständnis um einige Meter.
Na ja müß eben noch einiges dazu lernen.
Werd mir Mühe geben und Danke Euch für Eure Mühe!!

wenn ich weiter komme sag ich bescheit

__________________________

Grüße Reinhard

Office: zeilen im Listenfeld bedingt farblich hervorheben

zeilen im Listenfeld bedingt farblich hervorheben

zeilen im Listenfeld bedingt farblich hervorheben

zeilen im Listenfeld bedingt farblich hervorheben

zeilen im Listenfeld bedingt farblich hervorheben - Similar Threads - zeilen Listenfeld bedingt

VBA in einer Zeile zu lang

Wenn ein Wert ein einer Spalte, dann komplette Zeile im anderen Blatt untereinander einfügen.

Buchsatz mit Word: untere Zeile der Seiten immer auf der gleichen Höhe

leere Zelle in Zeile finden

VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen

Anzahl Zeilen in Listenfeld ermitteln

Zeile im Listenfeld per VBA auswählen