• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Datum Listbox

Status
Niet open voor verdere reacties.

Excelvbas01

Gebruiker
Lid geworden
7 apr 2020
Berichten
113
Hallo Allen,
hopelijk weet iemand een oplossing.
In listbox heb een lijst met datums. In dit geval juni.
Ik ben opzoek naar een code die de datum van vandaag aangeeft met een kleur.
Ik heb zitten zoeken maar kan niet vinden.
Ik hoop dat iemand weet hoe dit moet.
 

Bijlagen

  • Map1.xlsb
    20 KB · Weergaven: 24
Zo?
Code:
Private Sub UserForm_Initialize()
    With ListBox1
        .List = Sheets("Blad1").Range("A1:A31").Value
        For i = 1 To .ListCount - 1
            .Selected(i) = IIf(.List(i) = Date, True, False)
        Next
    End With
End Sub
 
Laatst bewerkt:
De IIf constructie is overbodig.

Code:
.Selected(i) = .List(i) = Date

Zonder For Next
Code:
Private Sub UserForm_Initialize()    With ListBox1
     .List = Cells(1).CurrentRegion.Value
     .ListIndex = Application.Match(CStr(Date), .List, 0) - 1
    End With
End Sub
 
Beiden bedankt voor jullie reactie.
Het werkt maar ik wil niet dat er een match komt met de lijst.
waar ik aan zit te denken is het volgende.

Code:
if (Date.Now).listBox1.rows.BackColor = Color.Red

Alleen werk dit niet.
 
Je kan individuele regels in een listbox geen kleur geven, vandaar de geboden optie.
 
Code:
Private Sub UserForm_Initialize()
 With ListBox1
   .List = Cells(1).CurrentRegion.Value
   .value = Date
  End With
End Sub

De cellen in een werkblad kun je niet rond maken, de items in een Listbox niet kleuren.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan