Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Listbox Zeile färben, wenn...
#1
Guten Abend,

fange gerade erst an mir einige VBA-Kenntnisse anzueignen und bastele mir mein eigenes Projekt, dazu hätte ich aber einige Fragen und ich hoffe Ihr könnt mir helfen.

Erstmal eine kleine Info:
Ich habe eine Listbox mit verschiedenen Mitarbeitern die jeweils 3 Spalten (Vorname, Name, Abteilung)haben, sobald eines dieser auswählt wird füllt er auch dementsprechend die Textboxen ( Vorname, Nachname, Geburtsdatum, Abteilung, Eintritt etc.) aus, die er sich aus der Excel Tabelle holt. Sobald ich auf den Button "Neuer Mitarbeiter" klicke wird automatisch die nächste freie Zelle gesucht und dort können die Daten mittels der Textboxen gespeichert werden.


Es geht mir um die Textboxen "txtEintritt", "txt2Vertrag" und "txt3Vertrag"
Wenn ich nun ein Datum, beispielsweise 10.03.2015, in das Feld "txtEintritt" eintrage soll nach 5 Monaten, also am 10.08.2015 der jeweilige Mitarbeiter rot gefärbt werden.
So sieht mein Code dazu aus:

Dim Eintritt As Date
Eintritt = CDate(txtEintritt.text) + 150

If Eintritt > Date Then
ListBox1.ForeColor = &HFF&
End If

Mein Problem ist nur, dass sich alle Mitarbeiter rot färben!

Wenn aber nun ein Datum im nächsten Feld "txt2Vertrag" steht, dann soll die Farbe des Mitarbeiters wieder schwarz sein, aber sobald dieses Datum auch wieder 5 Monate her ist, soll sich der Mitarbeiter wieder rot färben.

Das selbe natürlich mit der nächsten Textbox "txt3Vertrag".

Ich hoffe ich konnte es verständlich erklären. 20

Lg
to top
#2
Hallo,

wie Du schon selbst festgestellt hast, geht das leider nicht zeilenweise in einer ListBox.

Gruß Uwe
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Listbox erste Zeile michel34497 2 43 24.02.2017, 07:52
Letzter Beitrag: schauan
  Mit Checkbox nach Farben suchen VBA michel34497 2 65 18.02.2017, 18:44
Letzter Beitrag: michel34497
  Farben formatieren JackMorgan 4 86 11.02.2017, 16:34
Letzter Beitrag: JackMorgan
  VBA nach Farben und Werte suchen? Klaus 13 277 10.02.2017, 20:03
Letzter Beitrag: Klaus
  per VBA shapes einer dynamischen Karte mit Farben und Mustern füllen laberbeat 5 98 10.02.2017, 16:12
Letzter Beitrag: Ego
  listbox dynamisch erweitern Windlaeufer 7 134 29.01.2017, 11:54
Letzter Beitrag: snb
  Personal Plan mit Farben Sortierung schroll 1 79 16.01.2017, 15:05
Letzter Beitrag: WillWissen
  Listbox Dbl Click Komentar einfügen michel34497 10 284 03.01.2017, 15:15
Letzter Beitrag: schauan
  Wenn in Zeile X steht dann in Zeile Y folgendes technoente 11 309 14.12.2016, 16:15
Letzter Beitrag: BoskoBiati
  Datum aus Zeile 1 in Formel in Zeile 2 Mcnick78 2 124 08.12.2016, 16:01
Letzter Beitrag: shift-del

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste