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
  Datum aus Zeile 1 in Formel in Zeile 2 Mcnick78 2 44 08.12.2016, 16:01
Letzter Beitrag: shift-del
  Listbox scrollen per VBA-Code Usedom 2 45 30.11.2016, 14:08
Letzter Beitrag: Usedom
  Userform Listbox Zelle AlpenZwerg 2 56 26.11.2016, 15:55
Letzter Beitrag: AlpenZwerg
  ListBox Kopfzeile erstellen michel34497 2 78 19.11.2016, 07:42
Letzter Beitrag: Crazy Tom
Question Eine bestimmte Feldformatierung, wenn in gleicher Zeile ein Wort vorkommt Olivenbaum2013 11 172 15.11.2016, 11:33
Letzter Beitrag: Olivenbaum2013
Lightbulb VBA Zeile in eine Arbeitsmappe kopieren wenn in der Zeile eine 1 steht Olossos 8 133 11.11.2016, 17:08
Letzter Beitrag: Kuwer
  Farbige Werte in ListBox VBA michel34497 7 127 10.11.2016, 11:31
Letzter Beitrag: michel34497
  Datum und Farben automatisch übertragen mastercons 2 55 09.11.2016, 04:40
Letzter Beitrag: schauan
  Inhalt Multiselect-ListBox in Variable auslesen Rabe 3 83 28.10.2016, 12:04
Letzter Beitrag: Rabe
  Selektierte Werte in ListBox nacheinander in TextBox michel34497 3 147 08.10.2016, 13:00
Letzter Beitrag: michel34497

Gehe zu:


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